with TSQLQuery.Create(nil) do
begin
try
Close;
SQL.Clear;
SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
Open;
if IsEmpty = False then
begin
fpago := FieldByName('FORMA_COBRO').AsInteger;
ag_aux := FieldByName('AGENTE').AsInteger; <-- El error lo da aquí
end;
finally
Free;
end;
end;