TTreeView nach TVirtualStringTree umsetzen - Hilfe !!!

[karl der große]

So bin schon ein wenig weiter.

Jetzt hab ich noch ein Problem mit dem Icon

Code:

Delphi-Quellcode:

procedure Tkalk.vstGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
   Kind: TVTImageKind; Column: Integer; var Ghosted: Boolean;
   var ImageIndex: Integer);
var
   Data: PTreeData;
begin
   Data := Sender.GetNodeData(Node);
   case Kind of
      ikNormal, ikSelected:
         if (Column = 0) and (Node.Parent = Sender.RootNode) then
            ImageIndex := TTreeDataClass(Data.FObject).Icon;
      ikState:
         case Column of
            0:
               if Node.Parent <> Sender.RootNode then
                  ImageIndex := 5;
      end;
   end;
end;

In der Zeile

            ImageIndex := TTreeDataClass(Data.FObject).Icon; bringt er folgende Fehlermeldung:

 Undefinierter Bezeichner 'Icon'
Und dann noch eine Frage:

Hab jetzt alle Proceduren angelegt. Wie kann ich das Ding jetzt anwerfen. Er zeigt mir noch nichts an.

Gruß Karl