Delphi listview更改标题文本

我有一个简单的表格：

我使用此代码添加项目：

FList.BeginUpdate;
  try
    Flist.Items.Clear;

    for LJsonValue in LJsonArr do
      begin
        Item := FList.Items.Add;

        Item.Text := 'some value';

        //What to do?
        FList.??.??.HeaderText := 'Header';
      end;
  finally
    FList.EndUpdate;
  end;

---

如何更改页眉和页脚？我只能用谷歌搜索上面的解决方案。上面的代码只设置

某些值

，而不是

项目文本

，但我无法更改

标题文本

和

页脚文本
页眉和页脚是
TListViewItem
的常规实例，除非它们的
目的
属性设置为
tListTempuse.Header
或
tlististempurpose.Footer
。此属性指示组件使用特殊外观呈现这些项-请参见
TListView
的属性和属性

您可以在运行时添加页眉和页脚（假定使用标准外观）：

我是否以这种方式为列表中的每个项目添加自定义页眉/页脚？@RosannaTrevisan：这是可能的，但不是必需的。这些特殊的项目被设计成它们周围的普通项目的组页眉和页脚。
Item := Flist.Items.Add;
Item.Text := 'Header';
Item.Purpose := TListItemPurpose.Header;

Flist.Items.Add.Text := 'Item 1';
Flist.Items.Add.Text := 'Item 2';

Item := Flist.Items.Add;
Item.Text := 'Footer';
Item.Purpose := TListItemPurpose.Footer;