Login delPhi 7

[Ñuño Martínez]

No he entendido la pregunta. Es bastante difícil leer una letra tan grande (al menos para mi...) y creo que al código fuente le falta algo, ¿no?

Código Delphi [-]
public
    { Public declarations }
    usuario1: boolean;
  end;
var
  Flogin: TFlogin;
implementation
{$R *.dfm}
procedure TFlogin.Button2Click(Sender: TObject);
begin
if usuario1=false then
Application.Terminate;
//else
fLogin.close;
end;
procedure TFlogin.Button1Click(Sender: TObject);
begin
// Codigo para verificar los.
if (edit2.text<>'') and (edit1.text<>'') then begin
  // Codigo pra  verificar  o igualdade dos campos Nombre y Clave.
  if (Edit1.text=adoquery1.FieldByName('usuario').AsString) and (edit2.text=adoquery1.FieldByName('clave').AsString) then begin
    fLogin.Close;
    edit1.Text:='';
    usuario1:=true;
  end else begin
    messageBox(handle,'Clave Invalida','Cambiar!',MB_ICONERROR+mb_OK);
    edit1.Text:='';
    edit2.text:='';
    edit2.SetFocus;
  end;
end else
  messageBox(handle,'Nombe de Usuário  Inválida ','Cambiar!',MB_ICONERROR+mb_OK);
  edit1.Text:='';
end;
end.

¿Así se ve mejor?