kenn mich zwar nicht so wirklich mit Delphi aus - aber trotzdem:

#) ist sl irgendwo schon als String (oder "sowas in der Art") deklariert (und initialisiert) ?
#) das speichern innerhalb der for schleife is nicht grad schön.. besser erst nach der schleife und nur einmal.. --> kann Delphi so direkt als Textdatei speichern? und ist die Datei schon vorhanden bzw. gibts ein Schreibreicht drauf?
#) probiers vielleicht mal ohne try/finally - sofern delphi nicht meckert..
#) das case kann ich aus dem zusammenhang her nicht einordnen, wofürs gut sein soll.. brauchst es wirklich?
#) es könnt auch (zumindest in andern Sprachen ) statt dem Add so gehen: sl+= chr(a) +'\n'; (inwieweit das aber in delphi geht - weiß ich ned, also zum string immer einen Zeilenumbruch und das neue Zeichen dazugeben.. )

lg, asterix