Objectlist für listview

[Natcree]

Habe mal dies hinbekommen es Läuft auch.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   Item: TListItem;
   i: integer;
   Gesamt: double;
 begin
   if form2.ShowModal = mrok then begin
   Gesamt := 0;
   ListView1.Items.BeginUpdate;
   try
     ListView1.Items.Clear;
     for i := 0 to fObjects.Count - 1 do
       begin
         Item := ListView1.Items.Add;
         Item.Caption := TIrgendwas(FObjects[i]).ErsteZahlAsString;
         Item.SubItems.Add(TIrgendwas(FObjects[i]).ZweiteZahlAsString);
         FGesamt := FGesamt + TIrgendwas(FObjects[i]).Summe;
         Item.SubItems.Add(Format('%.0n €', [FGesamt]));
      end;
   finally
     ListView1.Items.EndUpdate;
   end;
 end;
end;

Wie kriege ich jetzt die Daten in die List view bei der eingabe in form2 schlies er das Fenster aber in der form1 in der Listview steht nichts drinne