sumarle 1 segundo a una variable de tiempo?

[click]

estoy haciendo una especie de cronometro y dentro de un ttimer, quiero sumar 1 segundo a una variable de tiempo, pero no logro hacer dicha formula, la sabes?

var
vtinicio:tdatetime;
begin
vtinicio:=vtinicio+strtotime('00:00:01);
label1.caption:=timetostr(vtinicio);
end;


Esa es una idea pero no se incrementa, cual es el error.

Gracias

[delphi.com.ar]

No es buena idea utilizar cadenas para trabajar con variables fecha/hora, ya que estas fácilmente soportan funciones aritméticas, ya que son números.
En Delphi 6/7 puedes utilizar la función IncMinute.

Saludos!