metdod de ingresar contraseña y usuario

[[Caral]]

Hola

Código Delphi [-]
var
  FLogin: TFLogin;
   Cuenta : integer;
  Usuario : String;
  LoginOK : boolean;

implementation

uses UFClientes;

{$R *.dfm}

procedure TFLogin.BtnOkClick(Sender: TObject);
begin
    LoginOK := False;
   Query1.SQL.Text:= 'SELECT CodUsuario, Clave  FROM Usuario WHERE CodUsuario = :nom';
   Query1.Parameters.ParamByName('nom').Value:= EditUsuario.Text;
   Query1.Active:= True;
   EditUsuario.Text:= Query1.Fields[1].AsString;
   If Query1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       EditUsuario.Text := '';
       EditClave.Text := '';
       Query1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If Query1Clave.AsString = EClave.Text then
        Begin
           LoginOk := True;
           Query1.Active := False;
           FPrincipal:=TFPrincipal.Create(self);
           try
           FLogin.Visible:= False;
           FPrincipal.ShowModal;
           finally
           FPrincipal.Free;
           end;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           EditClave.Text := '';
           ADLogin.Active := False;
           If Cuenta = 3 then Close;
         end;

end;

procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
    LoginOK :=False;
   Close;
end;

procedure TFLogin.FormCreate(Sender: TObject);
begin
     Cuenta := 0;
   Usuario := '';

end;

Saludos