Tutor Membuat Form Login Di Delphi

pertama siapkan 2 buah label, 2 buah editbox dan 2 button
kedua ubah name editbox1 menjadi editusername dan editbox2 menjadi editpassword
kemudian ubah name button menjadi btnlogin dan btnkeluar

berikut codingannya:
procedure Tfrmwaveskylightlogin.Button2Click(Sender: TObject);
begin
if messagedlg('apakah anda ingin keluar dari sistem ini?',mtconfirmation,[mbyes,mbno],0)= mryes then
  application.Terminate
else
 exit;
end;

procedure Tfrmwaveskylightlogin.Button1Click(Sender: TObject);
var username,password: string;
begin
username:= editusername.text;
password:= editpassword.text;
if (username='') and (password='') then
messagedlg('silahkan masukkan username dan password',mtinformation,[mbok],0)
else
if (username='admin') and (password='admin')or (username='Admin') and (password='Admin') or (username='ADMIN') and (password='ADMIN')  then
begin
messagedlg('selamat id dan password anda benar',mtinformation,[mbok],0);
messagedlg('silahkan klik button test ya om',mtinformation,[mbok],0);
hide;
form1.show;
end
else
if (username<>'admin') and (password<>'admin')or (username<>'Admin') and (password<>'Admin') or (username<>'ADMIN') and (password<>'ADMIN')  then
begin
messagedlg('id atau password salah',mtinformation,[mbok],0);
messagedlg('silahkan coba lagi',mtwarning,[mbok],0)
end;


end;
procedure Tfrmwaveskylightlogin.Button3Click(Sender: TObject);
begin
messagedlg('username: admin'+chr(13)+'password:admin'+chr(13)+'Username:Admin'+chr(13)+'Password:Admin',mtinformation,[mbok],0);

end;

jika masih kurang ini source kodenya: Link Source Code