Rekursives Freigeben einer TStringList // Compilerfehler

[Caps]

Hallöle,

ich möchte mit einer Prozedur eine Stringliste rekursiv freigeben.

Hintergrund:
Ich verwende Stringlisten, an deren Objects-Eigenschaft(en) weitere Stringlisten hängen, so dass sich ein Baum als Datenstruktur ergibt.

Die Funktion ist angelehnt an FreeAndNil() und sieht folgendermaßen aus:

Delphi-Quellcode:

procedure FreeStringList(var List: TStringList);
var
   i: Integer;
begin
  if List <> nil then with List do begin
    if Count > 0 then begin
      for i:=0 to Count-1 do begin
        if Objects [i] <> nil then begin
          if Objects [i].ClassNameIs('TStringList') then
            // Unterknoten freigeben...
            FreeStringList(TStringList(Objects [i])) // Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
          else begin
            // Blatt freigeben...
            Objects [i].Free;
            Objects [i] := nil;
          end;
        end;
      end;
    end;
    FreeAndNil(List);
  end;
end;

Ich habe zwei Probleme damit, die sich gegenseitig ausschließen, je nachdem ob ich den Parameter List als var-Parameter oder als normale Objektreferenz (ohne var) übergebe:

1) Übergebe ich List mit var, erhalte ich die im Code als Kommentar ersichtliche Fehlermeldung.
2) Übergebe ich List ohne var, so wird die übergebene Referenz nicht auf nil gesetzt, d.h. nach Anwendung der Funktion auf eine Stringliste ist zwar das Objekt weg, aber die Referenz nicht nil.

Ich stehe ein wenig auf dem Schlauch.
Wie kann ich denn meine Datenstruktur nun rekursiv freigeben?

Grüße!
Caps