Login Sederhana di Delphi

procedure TFlogin.SpeedButton2Click(Sender: TObject);
begin

    IF (TxtUserID.Text = 'admin') and (TxtUserPass.Text = 'admin') then
    begin
        MessageDlg('Login Sukses, Selamat Datang di PT.Wirya Trikarsa',mtConfirmation,[mbOK],0);
        FPendaftaran.show;
    end
    else if (TxtUserID.Text ='') and (TxtUserPass.Text = '') then
    begin
        MessageDlg('Silahkan Isi Username dan Password Anda',mtError,[mbOK],0);
        Flogin.Show;
    end
    else
    begin
        MessageDlg('Username atau Password salah',mtError,[mbOK],0);
        Flogin.Show;
    end;
    TxtUserID.Clear;
    TxtUserPass.Clear;
end;



By David Jovi 
http://jendraldavid.blogspot.com