Den vorhieren makiern item bei einer listview?

[pluto]

hallo,
ich brauche für folgenden code:

Code: Alles auswählen

if (Selected = True) and (ListView2.Selected.SubItems.count > 0) then begin
   // die listview1 wird übernommen
  // hier für brauche ich den alten wert und zwar als "TListItem"
    if (listView1.items.count > 0) and (ListView1.Visible = True) then begin
      for i:=0 to ListView1.items.count-1 do begin
        TPaint2BasesObj(TObjectList(Item.data).Items[i]).saveinfo.gepackt:=StrToBool(ListView1.items[i].SubItems[1]);
        TPaint2BasesObj(TObjectList(Item.data).Items[i]).saveinfo.gruppenindex:=StrToint(ListView1.items[i].SubItems[0]);
        TPaint2BasesObj(TObjectList(Item.data).Items[i]).saveinfo.versch:=StrToBool(ListView1.items[i].SubItems[2]);
      end;
    end;
 
    FileNameEdit1.Text:=item.caption;
    Checkbox4.Checked:=StrToBool(item.SubItems[0]);
    Checkbox2.Checked:=StrToBool(item.SubItems[1]);
    Checkbox3.Checked:=StrToBool(item.SubItems[2]);
 
    if item.data <> NIL then begin
      for i:=0 to TObjectList(item.Data).Count-1 do begin
        with TPaint2BasesObj(TObjectList(item.Data).Items[i]) do begin
          AddListView(Name,saveinfo.gruppenindex,saveinfo.gepackt,saveinfo.versch,i = 0);
        end;
 
      end
    end;
  end;

den vohiergen olditem wert !

also ich bevor makiert wird muss ich einen wert abspeichern sofern er ungleich NIL ist... ich hoffe einer von euch kann mir sagen wie das geht !