Frame dynamisch erzeugen(Verständnisproblem)

[ChristianG]

Hallo liebe Delphi-Gemeinde.
Ich erzeuge dynamisch einen Frame und dort bekomme ich Einzelpreis und die Anzahl. Nun möchte ich den Gesamtpreis von allen Frames, die erzeugt wurden, ausrechnen.

Delphi-Quellcode:

 ListIndex := TicketOverviewList.IndexOf( cdsbuchen.FieldByName('Name').Asstring );
        if ListIndex > -1 then begin
          myFrame2 := TFrame2(TicketOverviewList.Objects[ListIndex]);  
        end
        else begin
          myFrame2           := TFrame2.Create(self);
          myFrame2.Name      :=Format( 'frzwei%s',[InttoStr(u)]);
          myFrame2.Parent    := TabItem7;
          myFrame2.SetBounds(10, y, 260, 40);
          myFrame2.Visible    := true;
          y                   := y + 65;
          myFrame2.Anzahl     := 0;

          TicketOverviewList.AddObject( cdsbuchen.FieldByName('Name').Asstring, myFrame2 );
        end;

          myFrame2.Anzahl := myFrame2.Anzahl + 1;
          myFrame2.Preis  :=   cdsbuchen.FieldByName('MoneyPrice') .AsInteger;
          myFrame2.Namee  :=   cdsbuchen.FieldByName('Name').Asstring;
          myFrame2.Gesamtpreis2:= cdsbuchen.FieldByName('MoneyPrice').AsInteger * myFrame2.Anzahl + (cdsbuchen.FieldByName('TransactionFee').AsCurrency/100);

          
       (*   if BGesamtpreisalt < BGesamtpreis then begin
            BGesamtpreis :=  myFrame2.Gesamtpreis2 ;
            BGesamtpreisalt := BGesamtpreis;
            end; 
             if BGesamtpreisalt > BGesamtpreis then begin
            Bgesamtpreis := BGesamtpreis + myFrame2.Gesamtpreis2  ;
            BGesamtPreisalt := BGesamtpreis;
             end;                         *)//vollkommener quatsch

Das auskommentierte ist vollkommen falsch, aber ich weiß nicht, wie man den Gesamtpreis von allen Frames addieren kann. Ich hoffe der Quelltext erklärt besser als ich
Danke schon einmal im Vorraus für eure Hilfe