Für mich ist folgendes Konstrukt eigentlich der übersichtlichste und sauberste Weg um das Bsp von sahli umzusetzen.
Delphi-Quellcode:
var
list1: TStringList;
list2: TStringList;
begin
list1:=nil;
list2:=nil;
try
list1 := TStringList.Create;
list2 := TStringList.Create;
...
finally
list1.free;
list2.Free;
end;