var
Item1: TListViewItem;
begin
Item1 :=
ListView1.Items.Add;
Item1.Purpose:=TListItemPurpose.Header;
//
Item1.Purpose:=TListItemPurpose.Footer;
Item1.text:=‘ xxxx‘;//Header或Footer显示的内容
end;
delphi xe6 android ListView增加 Header或Footer 的方法,布布扣,bubuko.com
delphi xe6 android ListView增加 Header或Footer 的方法
原文：http://www.cnblogs.com/qiufeng2014/p/3705253.html