Contador de tiempo de una aplicacion

[rufo]

Listo amigos ya me quedo resuelto el problemilla que tenia, les pongo el codigo para futuras consultas

Código Delphi [-]
procedure TCONTROLPHONE.Timer1Timer(Sender: TObject);
 begin
 segundos := segundos + 1;
 Label3.caption := TimeToStr(segundos / (24*60*60));
end;

Y en el evento Onshow le puse este codigo

Código Delphi [-]
procedure TCONTROLPHONE.FormShow(Sender: TObject);
begin
 LongTimeFormat := 'hh:mm:ss';
 Label3.caption := TimeToStr(0);
 Timer1.enabled := true;
 segundos := 0;
end;

Y en la parte de private

Código Delphi [-]
private
    { Private declarations }
  segundos : longint;

y con eso me funciono lo que esta buscando, espero que les ayude a futuras consultas y gracias a todos.