TStatusBar

Code:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

with StatusBar1 do

begin

   if GetKeyState(VK_CAPITAL) <> 0 then

     panels[0].text := ' CAP'

   else

     panels[0].text := '';

   if GetKeyState(VK_NUMLOCK) <> 0 then

     panels[1].text := ' NUM'

   else

     panels[1].text := '';

   if GetKeyState(VK_SCROLL) <> 0 then

     panels[2].text := ' SCRL'

   else

     panels[2].text := '';

   panels[3].text := ' ' + DateTimeToStr(now);

end;

end;