Tombol Caplock aktif dengan Delphi 7

Cara Membuat Pesan Peringatan Apabila Tombol Caplock aktif  pada Text Password dengan Delphi .
1. Buatlah Form yang berisi TextUsername.text dan TextPassword.text

Membuat Function CaplockAktif()
            //Fungsi Mengecek Capslock
  Function IsCapsLockOn : boolean;
begin
  Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);
end;
2.Klik Field TextPassword dan Pilih event OnChange.
Ketikan Fucttion dibawah ini setelah prosedure

Function IsCapsLockOn : boolean;
begin
  Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);
end;

procedure TFormLogin.TextPasswordChange(Sender: TObject);
begin
IsCapsLockOn;
If IsCapsLockOn=true then Showmessage('Capslock pada Keyboard Anda aktif !');
end;
end.
3. Jalankan Program dengan F9 / Klik RUN