TListView：Columns.Delete（索引）后丢失了最后一列的标题

Question

我想我在TListView中发现了一个潜在的错误。

重现的步骤： 创建一个新的VCL Forms应用程序，添加TListView，将它的ViewStyle设置为vsReports。 添加两个按钮

button1的：

procedure TForm1.Button1Click(Sender: TObject);
var
  lCol: TListColumn;
begin
  lcol :=   ListView1.Columns.Add;
  lcol.Caption := 'name';
  lcol :=   ListView1.Columns.Add;
  lcol.Caption := 'name2';
  lcol :=   ListView1.Columns.Add;
  lcol.Caption := 'name3';
end;

按钮2：

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Columns.Delete(1);
end;

结果： 该列已删除，但最后一列的标题会丢失。当添加更多列并删除其他列之间的列（或删除第一列）时，也会发生这种情况。最后一列的标题始终为空。

我正在使用XE3。我错过了什么吗？

由于

编辑： QC link

potential duplicate