Membuat Form Log In Sederhana

Sudah lama saya tidak posting akhirnya ada kesempatan kembali untuk  posting sebuah arikel mengenai form login pada pemrograman delphi7. Langsung saja pada pokok pembahasannya, kita akan buat sebuah form log in sperti gambar dibawah ini:

Buat tampilan hingga seperti itu, untuk penjelasannya Name:Form1,Caption:Log in. Dan komponen lain ialah sebagai berikut:

Komponen	Properties	Nilai
Button1	Name Caption	Button1 Login
Button2	Name Caption	Button2 Exit
Edit1	Edit1
Edit2	Edit2
Label1	Label1	Login Form
Label2	Label2	Username
Label3	Label3	Password

Untuk listing programnya bisa kalian copy paste, tapi ingat saya tidak memberikan 100% listing itu benar agar kalian bisa belajar. Listingnya adalah sebagai berikut:

unit Unit4;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
 type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1klick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  Form4: TForm4;
 implementation
 uses Unit3;
 {$R *.dfm}
 procedure TForm4.Button3Click(Sender: TObject);
begin
if (Edit1.Text='admin') and (Edit2.Text='99999') then
begin
MessageDlg('Selamat datang di SISTEM INFORMASI PEGAWAI!!',mtInformation,[mbOK],0);
form3.show;
form4.Enabled:=false;
end
else if Edit1.Text='mustoharoh' then
ShowMessage('password salah')
else ShowMessage('user name tidak cocok');
end;
 procedure TForm4.Button2Click(Sender: TObject);
begin
CanClose:= false;
  if (MessageBox(Self.Handle,'Apakah anda yakin akan keluar?',
      'Konfirmasi',MB_YESNO+MB_ICONINFORMATION)=IDYES) then
      Application.Terminate;
end;
 end.

Keterangan dari listing yang berwarna kuning adlah nama user login yang akan diperbolehkan dan yang berwarna biru adalah paswordnya. Demikian selamat mencoba.