var
  Form1: TForm1;
  i: byte;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if EditPassword='Ayahe_Hasan' then
    //menu utama show
  else
  begin
    inc(i);    
    if i>3 then
      Application.Terminate
  end;
end;

procedure TfLogin.btLoginClick(Sender: TObject);
var
  habis: boolean;
  textpesan: string;
  salah,kesempatan: Integer;
begin
  if not (edtUser.text=tbUser['user']) or (edtPswd.text=tbUser['password']) then
  begin
    salah:= salah+1;
    if salah<3 then
      begin
        kesempatan:=3-salah;
        textpesan:='User name atau Password salah kesempatan masih '+inttostr(kesempatan)+' kali lagi';
        habis:= false;
      end
    else
      begin
        textpesan:='User name atau Password salah kesempatan habis';
        habis:=true;
      end;
    Application.MessageBox(PChar(textpesan),'Akses ditolak',mb_IconStop);
    if habis=true then Application.Terminate;
    edtUser.Text:='';
    edtPswd.Text:='';
    edtUser.SetFocus;
  end
  else
    begin
      fMain.TextStatus3.Caption:= edtUser.Text;
      Close;
    end;
end;

@putukaca: mungkin ini bisa bantu (kalo salah diperbaiki ya)

.
.
if not (edtUser.text=tbUser['user']) or (edtPswd.text=tbUser['password']) then
.
.

.
.
if (edtUser.text<>tbUser['user']) or (edtPswd.text<>tbUser['password']) then
.
.

var
  Form1: TForm1;
  salah: byte;
implementation
uses Unit2;
{$R .dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  habis: boolean;
  textpesan: string;
  kesempatan: Integer;
begin
.
.
.
end;
procedure TForm1.FormCreate(Sender: TObject); 
begin
  salah:=0;
end;

.
.
.
else
    begin
      fMain.TextStatus3.Caption:= edtUser.Text;
      Close;
    end;

.
.
.
else
begin
  Hide;
  fMain.TextStatus3.Caption:= edtUser.Text;
  fMain.Show;
end;

var
  Form1: TForm1;
  salah: byte;
implementation
{$R  .dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  habis: boolean;
  textpesan: string;
  kesempatan: Integer;
begin
  if (edtUser.text<>tbUser['user']) or (edtPswd.text<>tbUser['password']) then
  begin
    salah:=salah+1;
    if salah<3 then
    begin
      kesempatan:=3-salah;
      textpesan:='User name atau Password salah kesempatan masih '+inttostr(kesempatan)+' kali lagi';
      habis:= false;
    end
    else
    begin
      textpesan:='User name atau Password salah kesempatan habis';
      habis:=true;
    end;
    Application.MessageBox(PChar(textpesan),'Akses ditolak',mb_IconStop);
    if habis then
      Application.Terminate;
    edtUser.Text:='';
    edtPswd.Text:='';
    edtUser.SetFocus;
  end
  else
  begin
    Hide;
    fMain.TextStatus3.Caption:= edtUser.Text;
    fMain.Show;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  salah:=0;
end;