El parametro tres esta en esta parte:
Código Delphi
[-]
if(RgRol.ItemIndex=0) then
begin
a:='operador';
QryUsuario.Params[2].AsString:=a;
end
else
begin
a:='administrador';
QryUsuario.Params[2].AsString:=a;
end;
Lo que hago es validar la propiedad ItemIndex del RadioGroup si es 0 me guarde en la variable a que he definido previamente una palabra y esa sea la que consult een al base de datos, pero la verdad no se si me quedo bien, no habia leido la cita tuya de arriba de que en la consulta empezaban los parametros p1,p2,p3 ya le hice esta modificacion o sea asi:
Código Delphi
[-]
QryUsuario.SQL.Text:='select * from usuario where Nombre=:P1 and Clave=:P2 and Rol:=P3';
Pero aun me bot ael error que dije anteriormente
Una vez mas mil gracias por tu ayuda.