TStringList im with übergeben

[luke2]

Hallo,

Wenn ich eine Funktion oder Prozedur habe, die TStrings als Parameter erwartet, muss ich ja eine TStringList ja mit einer Variable erstellen und diese dann übergeben.
Beispiel:

Delphi-Quellcode:

procedure test(s:tstrings);
begin
  [...]
end;

var 
  sl:tstringlist;
begin
  sl:=tstringlist.create;
  try
    test(sl);
  finally
    sl.free;
  end;
end;

Wenn ich das Ganze nun mit einem with abkürzen möchte, gibt es dann auch eine Möglichkeit die eigene Instanz zu übergeben?
Beispiel:

Delphi-Quellcode:

procedure test(s:tstrings);
begin
  [...]
end;

begin
  with tstringlist.create do try
    test(<was kommt hier rein?>);
  finally
    free;
  end;
end;

MfG