esto es lo que queria
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.
__________________
Saludos.
|