今天汗流浃背的,想问一个关于TStatusBar简单的有关问题

今天汗流浃背的,想问一个关于TStatusBar简单的问题
我想用TStatusBar显示Num   Lock,Caps   Lock,Scroll   Lock这几个键的开关状态
按一下这其中一个键,就在TStatusBar中显示开或者关
我不知道如何实现???
有会的请教一下小弟!
谢谢了

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetKeyState(VK_NUMLOCK) and $FFFF = 1 then
Caption := '开 '
else
Caption := '关 ';
end;
[解决办法]
用TRzStatusBar