TItem = class(TObject)
  public
    next: TItem;
    wert: real;
  end;

  TListe = class(TObject)
  private
    first: TItem;
    last: TItem;
  public
    gesamt: real;
    procedure add(wert: real);
    function addieren(gesamt: real):real;
    function count(): integer;
  end;

implementation

{ TListe }

procedure TListe.add(wert: real);   //Item hinzufügen
var Item: TItem;
begin
  Item:= TItem.Create;
  Item.wert:= wert;

  if first = Nil then
  begin
    first:= Item;
    last:= Item;
  end
  else
  begin
    last.next:= Item;
    last:= Item;
  end;
end;

function TListe.addieren(gesamt: real):real; //Items addieren
var
  i: integer;
  Item: TItem;
begin

  gesamt:= 0;
  i:= count;
 
  for i := 0 to count - 1 do
  begin
    gesamt:= gesamt + Item.wert; <--(Item.wert) hier wird mir dieser riesige wert übergeben
  end;

  Result:= gesamt;

 end;

function TListe.count: integer; //Zählen der Items
var
  i: integer;
  Item: TItem;
begin
  i:= 1;
  Item:= first;

  if first = Nil then
  begin
    i:= 0;
  end
  else
  begin
    while Item.next <> Nil do
    begin
      i:= i+1;
      Item:= Item.next;
    end
  end;

  result:= i;

end;

end.