sag mal, warum machste es nicht so, wie in der prozeduralen progammierung...
Delphi-Quellcode:
procedure main;
var
sl: tstringlist;
begin
sl := tstringlist.create;
try
sub(sl);
finally
sl.free;
end;
end;
procedure sub(const sl: tstrinlist);
begin
// mach irgendwas mit sl...
end;