Como inserir um relégio em um StatusBar

Faça o seguinte:

Coloque no form principal um TTimer (fica na paleta SYSTEM)

No evento OnTimer do TTimer coloque:

[color=blue:67c4892ca6][b:67c4892ca6]StatusBar1.Panels[[color=red]I[/color:67c4892ca6]].Text:= FormatDateTime(´dd/mm/yyyy - HH:MM:SS´, Now);[/b:67c4892ca6][/color]

Onde [color=red:67c4892ca6][b:67c4892ca6]I[/b:67c4892ca6][/color:67c4892ca6] é o número do painel da StatusBar.

Espero ter ajudado.

[b:fc923fe8f9][size=18:fc923fe8f9]Correção...[/[/size:fc923fe8f9]b]

A linha em destaque é:

[color=blue:fc923fe8f9][b]StatusBar1.Panels[[/b:fc923fe8f9][/color:fc923fe8f9][b:fc923fe8f9][color=red:fc923fe8f9]I[/color:fc923fe8f9][/b:fc923fe8f9][b:fc923fe8f9][color=blue:fc923fe8f9]].Text:= FormatDateTime(´dd/mm/yyyy - HH:MM:SS´, Now);[/color:fc923fe8f9][/b:fc923fe8f9].

Muito obrigado...

espero poder retribuir sua dica

coloque um objeto timer no form e a status bar, duplo click no objeto timer, e digite o codigo:

statusbar.panels[0].text := ´Hora: ´ + TimeToStr(Time);

espero ter ajudado!!!