Große Probleme mit VirtualStringTree

[SneakyBagels]

Ich teste mich heute an einem VirtualStringTree denn mein Ziel ist es ein VST zu haben was aussieht wie ein TListView (mit Mouse-Hover-Effekt).

Das hier habe ich schon. Ok, es kommt von einem Tutorial. Aber es funktioniert trotzdem nicht.
Statt dass die in Col1 und Col2 zugewiesenen Strings im VST landen, landet das im Form.Caption.

Delphi-Quellcode:

type
 PTreeData = ^TTreeData;

 TTreeData = packed record
  Col1: string;
  Col2: string;
 end;

implementation

{$R *.dfm}

function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; ARecord: TTreeData): PVirtualNode;
var
 Data: PTreeData;
begin
 Result := AVST.AddChild(ANode);
 Data := AVST.GetNodeData(Result);
 AVST.ValidateNode(Result, False);
 Data^.Col1 := ARecord.Col1;
 Data^.Col2 := ARecord.Col2;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 i: Integer;
 TreeData: TTreeData;
begin
 VST.NodeDataSize := SizeOf(TTreeData);
 VST.BeginUpdate;
 for i := 0 to 9 do
  begin
   TreeData.Col1 := 'Node-Nummer: ' + IntToStr(i);
   TreeData.Col2 := 'Nummer: ' + IntToStr(i * i);
   AddVSTStructure(VST, nil, TreeData);
  end;
 VST.EndUpdate;
end;

procedure TForm2.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 Data: PTreeData;
begin
 Data := VST.GetNodeData(Node);
 case Column of
  0:
   Text := Data.Col1;
  1:
   Text := Data.Col2;
 end;
end;

Text habe ich mal durch CellText geändert das funktioniert jetzt.
Was aber nicht funktioniert das Einstellen der Höhe eines Nodes. Und allgemein kann man mit dem VST irgendwie wenig machen oder es ist halt alles versteckt.
Wieso gibt es denn nicht mal einen Fokus-Rahmen wenn man mit er Maus drüber fährt wie beim ListView?