Membuat password di delphi

1. Buatlah Aplikasi baru dengan cara klik file->new-> application
2. Masukan Komponen yang ada di bawah ini

Label1
· Caption	Masukan Password
· Size	10
Edit1
Button1
· Caption	OK
Button2
· Caption	Batal
Grupbox1
· Caption	Latihan

3. Klik ganda pada tombol ‘OK’ dan ketikan prosedure berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.Text='1234' then

begin

showmessage('password anda benar');

end

else

begin

showmessage('maaf pasword anda salah');

edit1.Clear;

end;

end;

4. Klik ganda pada tombol ‘BATAL’ dan ketikan procedure berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

5. Klik ganda pada Form1 dan ketikan procedure berikut :

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.clear;

end;

Posted in: Pemograman Delphi