[krlox31416]

y si utilizas esto???
servira para tu aplicación???

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
StatusBar1.SimpleText:= DateTimeToStr(Now);// PUEDES PONER OTRO COMPONENTE O AGREGARLO AL CAPTION DE LA FORMA... ETC.
end;

espero que te sirva y si no pues aqui veremos como sacar este problema...
sludos!!!...