[Onti]

Algunos cambios sugeridos:

1.- Cambia tu Sql inicial por

Código SQL [-]
SELECT codusu, nomusu, pasusu FROM Usuario where codusu=:cod and PasUsu = :PasUsu"

2.- Valida si los "edits" están vacíos antes de realizar la consulta y mejor si utilizas la función "length"

3. Utiliza ParamByName para el pass
4. Utiliza la funcion Inc para incrementar tu contador

Código Delphi [-]
  // Verificar edit vacios
    If (Length(Edit1.text)+Length(Edit2.text))=0 then
      Begin
        MessageDlg('DIGITE LOS ESPACIO EN BLANCO',mtInformation,[mbCancel], 0,);
        Exit;
      End;

  // Inicializar variables
    LoginOK :=False;

  // Realizar consulta
    AdoQuery1.Close;
    AdoQuery1.Parameters.ParamByName('Cod').Value    := Edit1.Text;
    AdoQuery1.Parameters.ParamByName('PasUsu').Value := Edit2.Text;
    AdoQuery1.Open;
    If AdoQuery1.RecordCount =0 then
      Begin
        Inc(Cuenta);
        MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
        Edit1.Text := '';
        Edit2.Text := '';
      End
    Else
      LoginOk:=True;
    AdoQuery1.Close;
    If Cuenta = 3 then  
      Application.Terminate;