Como verifico si la tecla bloq mayus esta activada

[Lizette]

Hola, tengo un edit para ingresar contraseña, y todos los passwords son siempre en minusculas, como puedo avisarle al usuario que esta activado el bloq mayus del teclado?? Parecido a como lo hace el correo cuando quiere ingresar la contraseña.. Gracias

[[enecumene]]

Hola,

Código Delphi [-]
procedure TFLogin.EClaveKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if GetKeyState(VK_CAPITAL) and $00ff <> 0
  then begin
    Aviso.ActivateHint(EClave, 'La tecla Mayúscula está activado!', ikWarning, 'Aviso', 10000);
  end;

Aviso es un componente JvBallooHint de la librería Jedi . También lo puedes usar con un ShowMessage o MessageDlg.

Saludos.

[Lizette]

Gracias por tu colaboracion, me fue de mucha utilidad..