Добавление и пересоздание столбцов в ListView

[Shouldercannon]

Так получилось, что сначала вношу в ListView данные, а потом пересоздаю в нём столбцы. Работает без ошибок, но возникает вопрос, можно ли так вообще делать?

procedure TForm7.Button1Click(Sender: TObject);
var
  I: Integer;
  Item: TListItem;
begin
  for I := 0 to 4 do
  begin
    Item := ListView.Items.Add;
    Item.Caption := IntToStr(I);
    Item.SubItems.Add(IntToStr(I));
    Item.SubItems.Add(IntToStr(I));
  end;
  // Удаляем все столбцы
  ListView.Columns.Clear;
  // Пересоздаём столбцы таблицы для админ/пользователь
  ListView.Columns.Insert(0);
  ListView.Column[0].Caption := 'ID';
  ListView.Column[0].Width := 50;

  ListView.Columns.Insert(1);
  ListView.Column[1].Caption := 'Статус';
  ListView.Column[1].Width := 143;

  ListView.Columns.Insert(2);
  ListView.Column[2].Caption := 'Заявка';
  ListView.Column[2].Width := 200;
end;

[Аватар]

Работает же.