delphi xe6 android ListView增加 Header或Footer 的方法

var
  Item1: TListViewItem;
begin
    Item1 := ListView1.Items.Add;
    Item1.Purpose:=TListItemPurpose.Header;
//    Item1.Purpose:=TListItemPurpose.Footer;
    Item1.text:=' xxxx';//Header或Footer显示的内容
end;