第二个按钮里不能这样写,应改成这样
ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);
procedure TForm1.Button1Click(Sender: TObject);
begin
with Listview1.Items.Add do begin
Caption:='1';
SubItems.Add(button1.Caption);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);
end;