Anonymous

procedure TfmMain.AddPath(Path: string; Cost: integer);
var
  Item : TListItem;
begin
  Best := cost;
  Item := PathList.Items.Add;
  Item.Caption := Path;
  Item.SubItems.Add(IntToStr(cost));
end;

// PathList is the name of the ListView
// Keep adding SubItems to access the second and onwards columns