Buen Dia

[[Caral]]

Hola
Veamos el problema aca:

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

Veamos que el parametro Rol esta mal escrito:

Rol:=P3';

Veamos que dice el mensaje:

List index out of bounds (3).

Veamos como van los archivos o registros de una tabla.
Nombre = 0
Clave = 1
Rol = 2.

Ahora veamos la logica de mensaje:
HEYYYY amigo, DONDE ESTA EL REGISTRO 3 ??????

Comprendes?
Usemos la logica, si no, no vamos a entender a Delphi.
Saludos