Uso del Timer y un Edit

[marcoszorrilla]

Aunque pienso que sería mejor utiliar un Tlabel, aquí tienes un ejemplo:

Código Delphi [-]
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Edit1.Text:=TimeToStr(Time);
  end;

Un Saludo.

[marcoszorrilla]

Bueno creo que esto otro lo que pides:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   ExtCtrls, StdCtrls;
 
 type
   TForm1 = class(TForm)
     Timer1: TTimer;
     Edit1: TEdit;
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
   Inicio:TTime;
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 Edit1.Text:=TimeToStr(Time - Inicio);
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
 Inicio:=Time;
 end;
 
 end.

Un Saludo.

[RiverPlate]

Marcos muchas gracias, tan simple como eso, pero bueno... se ve que no estaba muy acostumbrado a usar los timers.

desde ya muchas gracias por la respuesta..

P.D: si la idea es usarlo con un label me salio edit sin querer