var
s:string;
i:integer;
ListItem:TlistItem;
begin
Listitem:=listview1.Items.Add;
listitem.Caption:='牛年大吉';
listitem.SubItems.Add('牛');
listitem.subitems.Add('气');
listitem.subitems.Add('冲 ');
listitem.subitems.Add('天');
listitem.subitems.Add('哦 ');

end;

procedure TForm1.Button2Click(Sender: TObject);  //先建立行列
begin
listview1.Items[1].SubItems.strings[2]:='我';
listview1.Items[2].SubItems.strings[2]:='变';

listview1.Items[3].SubItems.strings[2]:='变';

listview1.Items[4].SubItems.strings[2]:='变'！;
end;