[dec]

Mostrar la hora en la barra de tareas

Código Delphi [-]
Procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
  Application.Title := FormatDateTime( 'hh:nn:ss', Now );
  Done := False
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppIdle;
end;