hi,
du solltest beim beenden des programms jedes einzelne element des arrays freigeben. am besten geht das in einer for-schleife:
Delphi-Quellcode:
var i: integer;
liste: array[0..999] of TStrings;
begin
//...
for i:=low(liste) to high(liste) do
liste[i].free;
end;
Aenogym