[[Héctor Randolph]]

Hola Yoli!

Una forma de hacerlo sería la siguiente:

Código Delphi [-]
var
  perf: String;
begin
 .
 .
 with IBQUsuarios do
 begin
  ParamByName('USU').AsString:= txtUsuario.Text;
  ParamByName('CLA').AsString:= txtClave.Text;
  Active := true;
  perf:=FieldByName('id_perfil').AsString;
 .
 .

end;

Otra forma posible sería

Código Delphi [-]
var
  perf: String;
begin
 .
 .
 with IBQUsuarios do
 begin
  ParamByName('USU').AsString:= txtUsuario.Text;
  ParamByName('CLA').AsString:= txtClave.Text;
  Active := true;
  perf:=Fields[2].Value;// Considerando que login=0,clave=1,id_perfil=2
 .
 .

end;

Espero que alguna de estas te sea útil, un saludo