Execelente codigo Ecfisa!
Solo quisiera agregarle algo:
Código Delphi
[-]procedure TForm1.Timer1Timer(Sender: TObject);
begin
if SecondOf(Now) = 0 then
TTimer(Sender).Interval := 60000;
if (MinuteOf(Now)=0)and(SecondOf(Now)=0) then
Edit1.Text:= '';
end;
Con eso el codigo el Timer empezara a ejecutar cada minuto, en lugar de cada segundo, aliviando un poco el procesador y la aplicacion. Se pudiera hacer algo similar para que el codigo se ejecutase cada hora, pero los cronometros no son muy precisos y al final terminarias con impresiciones de un par de segundos si aunmentas el intervalo en una hora por ejemplo.
Saludos,
Chris
PD.: Disculpen la ausencia de acentos, estoy usando un LiveCD de Ubuntu y no se me configuro correctamente el teclado
