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
usuario1: boolean;
end;
var
Flogin: TFlogin;
implementation
{$R *.dfm}
procedure TFlogin.Button2Click(Sender: TObject);
begin
if usuario1=false then
Application.Terminate;
fLogin.close;
end;
procedure TFlogin.Button1Click(Sender: TObject);
begin
if (edit2.text<>'') and (edit1.text<>'') then begin
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?