[ivanflores]

Hola a todos de nuevo.
quisiera ver si me pueden hechar una mano con mi problema.

Estoy realizando un programa para usarlo en mi trabajo... y quiero ponerle una ventana para accesar al sistema pidiendo nombre de usuario y contraseña debidamente almacenados en una base de datos en paradox, los campos que utilizo son usuario(campo clave) y password. Quiero lograr que al presionar el boton de aceptar valide los campos y si son iguales me deje accesar al sistema, en caso de que en tres intentos no se logre accesar se termina la aplicacion. Si los campos son erroneos(cualquiera de los dos) me indique un mensaje de "usuario o password incorrectos."
lo he intentado de la siguiente manera pero no me funciona como yo quiero.

Código Delphi [-]
unit Users;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TUsuarios = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
end;

var
  Usuarios: TUsuarios;
  X:INTEGER;
  Y:INTEGER;

implementation

uses AdminUsCo;

{$R *.dfm}

procedure TUsuarios.Button1Click(Sender: TObject);
begin
  IF admiuc.Table1.findkey([edit1.Text])and(x<=3) then
  begin
    if admiuc.Table2.findkey([edit2.Text])AND(y<=3) then
    begin
      close;
    end
  end
  else
  begin
    x:=x+1;
    y:=y+1;
    edit1.Clear;
    edit2.clear;
    edit1.setfocus;
    messagedlg('USUARIO O CONTRASEÑA INCORRECTOS.'+#13+#10+ 'INTENTE DE NUEVO.',
     MTERROR, [MBOK],0)
  END;
  IF(X=3) THEN
  BEGIN
    MESSAGEDLG('NO SE PUEDE ACCESAR A SICSSA,
     "INTENTOS AGOTADOS".'+#13+#10+'!!PARA INTENTAR DE NUEVO VUELVA A EJECUTAR LA APLICACION.¡¡',MTINFORMATION,
      [MBOK],0);
    APPLICATION.TERMINATE;
  END;
end;

procedure TUsuarios.Button2Click(Sender: TObject);
begin
  APPLICATION.TERMINATE;
end;

end.

Hasta ahorita lo de los intentos si funciona pero al poner cualquier caracter en los edit ya no trabaja el mensaje de "usuario o contraseña incorrectos", si le pongo el usuario correcto y la contraseña incorrecta. no manda mensaje si le pongo el puro usuario correcto y el edit 2 en blanco si entra.
les agradeceria si pudieran hecharme una mano y decirme como lo puedo hacer o un codigo para esto.
de antemano muchas gracias.