procedure TForm1.Button1Click(Sender: TObject);
var
  listv: TListItem;
begin
  listv := ListView1.Items.Add;
  listv.Caption := Edit1.Text;
  listv.SubItems.Add(Edit2.Text);
  listv.SubItems.Add(Edit3.Text);
  listv.SubItems.Add(Edit4.Text);
end;