Автоматическое изменение размера столбцов для TListView

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

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

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

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

Спасибо за advance