Modificar hora en tiempo de ejecución

[ecfisa]

Hola Lizeth.

No conozco algún componente de tercero como para indicarte, pero con un TDateTimePicker podes hacer:

Código Delphi [-]
...

uses DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Kind:= dtkTime;
  DateTimePicker1.Time:= Now;
  Timer1.Interval:= 1000;
  Timer1.Enabled:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DateTimePicker1.Time:= IncSecond(DateTimePicker1.Time, 1);
end;
...

Saludos.