Cronómetro y listview

[juanchi]

Hola , te cuento que para la hora tengo una tabla con intervalos de tiempo con valores enteros, y realizo lo siguiente:


procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
v : string;
tiempo : TDateTime;
begin
v := inttostr(Form4.TarifaHasta.AsInteger);
tiempo := strtotime(v);
for i:=0 to pred(listview1.items.count) do
if listview1.items[i].subItems[0] = 'Libre' then
ListView1.Selected.SubItems[1] := FormatDateTime('hh:nn:ss', now -tiempo );
end;

pero no me toma el valor de la tabla, voz que me recomendas. Hasta pronto y gracias por tu paciencia.

Saludos.