Borrar Edit automático

[[Chris]]

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; // ejecutarse cada 60 segundos

  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