[sdiaz1983]

Código Delphi [-]
procedure TFrmIngreso.BtnAceptarClick(Sender: TObject);
var a: String;
begin
QryUsuario.Active:=True;
TblUsuario.Active:=True;
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P0 and Clave=:P1 and Rol:=P2';
QryUsuario.Params[0].AsString:=EdtNombre.Text;
QryUsuario.Params[1].AsString:=EdtClave.Text;
if(RgRol.ItemIndex=0) then
  begin
  a:='operador';
  QryUsuario.Params[2].AsString:=a;
  end
else
  begin
  a:='administrador';
  QryUsuario.Params[2].AsString:=a;
  end;
QryUsuario.ExecSQL;
if(QryUsuario.RecordCount>0) then
  begin
  ShowMessage('INFORMACION CORRECTA')
  end
else
ShowMessage('INFORMACION INCORRECTA');
end;
end.

Hice las correcciones de los parámetros, pero ahora que lo ejecuto me bota la siguiente excpeción

QryUsuario: No Sql Statement available

A que se debra, que tengo que corregir del codigo de nuevo????

Mil Gracias por su atencion y perdone la molestia.