procedure TForm1.Button1Click(Sender: TObject);
var
 ListItem: TListItem;
 sr: tsearchrec;
 NewColumn: TListColumn;
begin
 NewColumn := ListView1.Columns.Add;
 NewColumn := ListView1.Columns.Add; // добавдяются колонки
 if FindFirst('*.*', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
 begin
  ListItem := ListView1.Items.Add; // создается объект
  ListItem.Caption := sr.name;
  ListItem.SubItems.Add(inttostr(sr.size));
  ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
  while Find(sr) = 0 do
  begin
  ListItem := ListView1.Items.Add;
  ListItem.Caption := sr.name;
  ListItem.SubItems.Add(inttostr(sr.size));
  ListItem.SubItems.Add(datetimetostr(FileDateToDateTime(sr.time)));
  end;
  FindClose(sr);
 end;
end;