(Delphi XE) Sostituire TListBox con TListView

[camaleonteplus]

Con questo codice inserivo dei dati in una TListBox, ma visto che mi sono cambiate le neccessità il codice lo vorrei adattare ad un TListView

procedure TForm1.Button2Click(Sender: TObject);
begin
  if modi=true
   then
       begin
           i:=ListView2.ItemIndex+1;
           dato[i].edit1:=edit1.Text;
           dato[i].edit2:=edit2.Text;
           dato[i].edit3:=edit3.Text;
           modi:=false;
           ListView2.DeleteSelected;
       end;
   ListView2.ItemIndex:=ListView2.ItemIndex-1;
   dato[i].edit1:=edit1.Text;
   dato[i].edit2:=edit2.Text;
   dato[i].edit3:=edit3.Text;
   ListView2.ItemIndex:=i;
   stringa:=dato[i].edit1+'     '+dato[i].edit2+'     '+dato[i].edit3;
   ListView2.Items.Add(stringa);
   i:=i+1;
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   edit3.Enabled:=false;
end;

ma come faccio ad adattarlo?

[camaleonteplus]

Risolto:

procedure TForm1.Button1Click(Sender: TObject);
Var
    Item: TListItem;
begin
    Item := ListView2.Items.Add;
    Item.Caption := Edit1.Text;
    Item.SubItems.Add(Edit2.Text);
    Item.SubItems.Add(Edit3.Text);
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if ListView2.ItemIndex >= 0 then
ListView2.DeleteSelected
    else
ShowMessage('Select an item to delete');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ListView2.ItemIndex >= 0 then
begin
Edit1.Text := ListView2.ItemFocused.Caption;
Edit2.Text := ListView2.ItemFocused.SubItems[0];
Edit3.Text := ListView2.ItemFocused.SubItems[1];
end
else
ShowMessage('Could not select any item to load');
end;

Cosi Funziona.