delphi membuat login sederhana

asalamualaikum wr wb
selamat pagi kawan bloger semua ,,di pagi yang cerah ini saya mao ngeshare ni
tentang software sederhana yang di buat di delphi 7
 ini coking dan SS.y

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='frima') and
(Edit2.Text='200893') then
begin//untuk mengeksekusi lebih dari satu perintah
form1.Hide;
form2.Show;
exit;
end
else
begin
Showmessage('Maaf Nama '+edit1.Text+ ' dan password nya tidak cocok');
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
exit;
end;
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.

dan
yang di butuhkan adalah
2 label
2 edit
2 button

dan yang mao silahkan download dibawah ini

Login