Cronómetro y listview

[juanchi]

Muchas gracias por tu respuesta . Te cuento que cuando me aparece la hora y hago click en otra parte del ListView, la hora se corta y aparece en donde hice click para seguir con el conteo. Otra cosa, como hago para que solo un subitem tome color ya que todos los subitems lo hacen. Te mando algo de código para que me puedas entender.

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
nSortCol := Column.Index;
ListView1.AlphaSort;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
if ListView1.Selected <> nil then
ListView1.Selected.SubItems[1] := FormatDateTime('hh:nn:ss', Now - inicio);
end;

procedure TForm1.Abrir1Click(Sender: TObject);
begin
inicio:=Now;
Timer1.Enabled := true;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
i : integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
if ListView1.Items.Item[i].SubItems[0] = 'Libre' then
ListView1.Canvas.Font.Color := RGB(0,120,0);
end;
end;

Muchas gracias. Saludos