检测大写字母锁定键的状态

var
 state:short ;
begin
    state:=GetKeyState(VK_CAPITAL);
    if(state=1) then
    self.Edit1.ShowHint:=true;
    then ShowMessage('Capslock on')
    else ShowMessage('Capslock off');
end;