Problem wenn Compiler Optimierung aktiv

[delphia]

Hallo,

folgende Routine macht Probleme wenn ich den Compiler Direktiven die Optimierung einschalte. Ich erhalte die Fehlermedung "Eintrag kann nicht eingefügt werden". Ist die Optimierung ausgeschaltet läuft alles gut.

Es handelt sich um ein normales TTreeview, als Start Parameter für ParentNode wird nil übergeben.

LoadFolder(nil, NameSpace.Folders);

Code:

procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
  var
    i: Integer;
    node: TTreeNode;
    li :string;
  begin
    for i := 1 to Folder.Count do
    begin
      li := Folder.Item[i].DefaultMessageClass;
      if AnsiSameText(li,'IPM.Contact') then
        node := tvFolders.Items.AddChild(ParentNode{ nd }, Folder.Item[i].Name);

      LoadFolder(node, Folder.Item[i].Folders);
    end;
  end;

Mir scheint es so zu sein, dass beim rekursiven Aufruf der Bezug zum TreeView verloren geht.
Jemand eine Idee?
Plattform: D5 unter Win7.

Gruss Thomas