Login

uses Unit3;       // tambahkan unit yang baru dibuat ...

procedure TForm2.Button1Click(Sender: TObject);
begin
if (Edit1.Text = 'ADMIN') and (Edit2.Text = 'ADMIN') then
form3.showmodal;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Label1.Caption := 'User' ;
Label2.Caption := 'Password' ;
Edit1.Text := '';
Edit2.Text := '';

end;