Wie waere es mal mit einer kraeftigen Vereinfachung des Codes?
Delphi-Quellcode:
var
List: array [1..128] of TStringList;
und eine entsprechende Umstellung auf Schleifen und Index.
Dieses List1 bis List128 ist ja ein grauenvoll ineffizientes Codegrab.