Function, Result als stringlist?

[Luckie]

Tut sie auch nicht.

Delphi-Quellcode:

procedure Foo(s: String; c: Char; var sl: TStringList);
begin
  ...;
end;

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    Foo('Hello', 'c', sl);
  finally
    FreeAndNil(sl);
  end;

Mal so aus dem Kopf.