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