[magnu9]

Saludos a todos, Mamaro, Caral y Onti. Lo he intentado de muchas maneras, y encontre la siguiente manera... pero tienes ciertas fallas.. por ejemplo si no logras entrar en la primera oportunidad la segunda y la tercera no importan ya que sale el mismo error como cuando te equivoca la primera vez... creo que al que afinarla un poquito más... a ver si se animan apoyarme. Gracias de antemanos.

Código Delphi [-]
  LoginOK :=False;
   AdoQuery1.Parameters.ParamByName('Cod').Value:= Edit1.Text;
   ADOQuery1.SQL.Add('and pasusu = '''+edit2.Text+'''');
   AdoQuery1.Active:= True;
   IF (Edit1.Text= '') OR (EDIT2.Text = '') THEN  BEGIN
    MessageDlg('DIGITE LOS ESPACIO EN BLANCO', mtInformation,[mbCancel], 0,);
    Edit1.Text := '';
    Edit2.Text := '';
    END
   ELSE If AdoQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
    If Cuenta = 3 then  Application.Terminate;
    END
    else close;