como se convierte un timer1 a caption?

[click]

procedure TFprincipal.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;


en un timer1 hacer que en la etiqueta se vaya viendo el avance del tiempo. De todas maneras me ayudaste a ver que taba muuuy lejos de lo que queria, pero me acerque.

Gracias.