Fórum Erro: There is no overloaded version of + that can be called with these arguments. #395345

procedure TFormMeuForm.edtCODIGOExit(Sender: TObject);
begin
  if ((Sender as TDBEdit).Text <> '') and (DmForm.cdsRelat.State in [dsInsert, dsEdit]) and
    (not MinhaFUncaoSQL('VRTRAN', ['CODIGO','NOME'],
    [StrToInt((Sender as TDBEdit).Text)], Resultados)) then
  begin
    DmForm.cdsRelat.FieldByName('NOME_' + (Sender as TDBEdit).Name).AsString := '';
    MessageDlg('Código não localizado !!!', mtInformation, [mbOK], 0);
    (Sender as TDBEdit).SetFocus;
    Exit;
  end
  else if ((Sender as TDBEdit).Text <> '') and (DmForm.cdsRelat.State in [dsInsert, dsEdit]) then
    DmForm.cdsRelat.FieldByName('NOME_' + (Sender as TDBEdit).Name).AsString := Resultados[1];
end;