Bloecke.Free innerhalb der Schleife ist auch ganz groß.
Und, was erzeugt wird, muß auch wieder freigegeben werden.
Und Verwende zum löschen einer Stringlist die Methode Clear;
Und, und, und..
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Bloecke:= TStringList.Create;
nummern:= TStringList.Create;
translated:= TStringList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Bloecke.Free;
nummern.Free;
translated.Free;
end;