Uso del Timer y un Edit

[RiverPlate]

Hola Gente, como les va?.. tengo la siguiente duda, estoy usando un timer para llevar el control de cuanto tiempo hace que se utiliza una aplicación.
Mi pregunta es que quiero que en el edit figure en formato tipo hora:min:seg (o por lo menos min:seg) o sea: 10:00 , 10:01 , 10:02, etc

Como lo puedo realizar??, ya que si incremento el edit1.text pasandolo a integer obviamente no tengo registro de la hora sino un contador, y creo que debe haber algun tipo de datos que me permita hacer esto y no tener que andar codificando un procedure o function para tal fin.

Espero que me sepan ayudar, desde ya muchas gracias..:cool:

[marcoszorrilla]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=TimeToStr(Time);
end;


Un Saludo.

[marcoszorrilla]

Bueno creo que esto otro lo que pides:

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 :p