Cara membuat form login di Delphi

Memang banyak cara yang bisa anda gunakan untuk membuat form login di Delphi.  Dalam tutorial kali ini saya akan membahas cara membuat login form dimana jika user 3 atau beberapa kali gagal maka secara otomatis akan keluar dari aplikasi.  Berikut ini langkah-langkahnya:
1.  Buat dua buah form, satu buat form utama dan yang satunya lagi adalah form untuk login.  Untuk form login setting property borderstyle ke bsDialog
2.  Taruh 2 textbox di form login untuk username dan password.
3.  Taruh tombol ok dan cancel di form login.  Untuk tombol cancel setting property modalresult=mrcancel.
4.  Tambahkan variable untuk counter di private declaration form login.  Misal Fcounter:integer;
5.  Pada saat event show tambahkan script berikut:
procedure Tfrmlogin.Formshow(Sender:Tobject)
begin
Fcounter:=0;
modalresult:=mrcancel;
end;
6.  Tambahkan script berikut pada event close atau bisa juga di event close query:
procedure TFrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if self.ModalResult=mrcancel then
application.Terminate;
end;
7.  Tambahkan script berikut saat tombol ok diform login di klik:
procedure TFrmlogin.btnokClick(Sender: TObject);
begin

  if(edit1.Text='test') and (edit2.Text='password') then
  begin
      Fcounter:=0;
      modalresult:=mrOK;
 //edit1=text untuk isian username, edit2 untuk isian password
  end
  else
  begin
       showmessage('Wrong username or password');
      inc(Fcounter);
      if Fcounter=3 then application.Terminate; //jika variabel Fcounter bertambah maka keluar dari aplikasi.
  end;
  end;
8. Langkah terakhir adalah tambahkan uses ke form login pada form utama anda dan isi dengan script berikut di event show:
procedure TfrmMain.FormShow(Sender:Tobject)
begin
windowstate:=wsmaximized;//Kalau anda menyetting property ini saat design time maka form utama anda tidak bisa tampil bersamaan dengan form login.
Frmlogin.showmodal;
end;