Datensätze in TStringlist einfügen

[s-off]

Du solltest alles zwischen dem Erzeugen einer Objektinstanz und deren Freigabe in einen try-finally-Block packen und die Freigabe dann in den Finally-Teil.