Speicherprobleme?

[Bernhard Geyer]

Wie wäre es damit?

Delphi-Quellcode:

function GetAllItems(ASaveTo: TStringList; a: Integer);
begin
  ...
  ASaveTo.Add(...);
end;

Ohne Free wird hier nichts mehr freigegeben.