1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function TForm1.LoadFromDB: Boolean;
var
  Node: PVirtualNode;
  NodeData: Pointer;
begin
  ...
  Node := VSTAddNode(nil);
  NodeData := VST.GetNodeData(Node);
  NodeData := Table.GetBookmark;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var  
  Node: PVirtualNode;  
  NodeData: Pointer;  
begin  
  ...  
  Node := VSTAddNode(nil);  
  NodeData := VST.GetNodeData(Node);  
  TObject(NodeData^) := ClientDataSet.GetBookmark;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin  
  // Column is -1 if the header is hidden or no columns are defined  
  if Column < 0 then Exit;  
  if TVirtualStringTree(Sender).Header.Columns[Column].Text = 'Customer Name' then  
  begin  
    LBookMark := TBookmark(Sender.GetNodeData(Node));
    if assigned(LBookmark) then begin
      Table.GotoBookmark(LBookMark);  
      Text := Table.FieldByName('Name').asString;  
    end else
      MessageDlg('Kein Bookmark', mtInformation, [mbOk]);