Аутентификация столбцов для TListView

Я хочу автоматизировать размер всех столбцов в TListView. Я использую код ниже, но он ничего не делает.

ListView1.Columns.Add.Caption := 'Field Name';
ListView1.Columns.Items[0].Autosize := True;

Как я могу автоматически сортировать столбцы TListView в Delphi.

Я установил свой ViewStyle to vsReport.

Заранее спасибо

Я получил ответ. Установка ширины столбца на -1 или -2 решила проблему.

Используйте параметр -1 для установки заголовка столбца на размер самого большого текста подэлемента в столбце,

и a -2, чтобы установить заголовок столбца в размер текста в заголовке столбца.

ListView1.Columns[0].Width := -1 or -2;

Попробуйте следующее:

// Assign vsReport;    
ListView1.ViewStyle := vsReport; 

  { // Add your items  }

// Assign vsList again;
ListView1.ViewStyle := vsList;