Aprenderemos a colocar hora e data dentro de um StatusBar.
Primeiro adicione um StatusBar, localizado na paleta Win32:
Ok... agora vá na propriedade PANELS:
Clique nos três pontinhos, "...".
Adicione dois INS, como na figura abaixo:
Deverá ficar igual a imagem acima (com o 0 e o 1 TStatusPanels).
Vamos codificar... Clique duas vezes no Timer e cole o seguinte código:
statusbar1.Panels[0].Text:=timetostr(time);
statusbar1.Panels[1].Text:=datetostr(date);
Prontinho!
Por Junior Evangelista