如何在Delphi6中将TVirtualStringTree的所有节点保存为BMP？

procedure TForm1.SaveTreeNodesAsBMP;
var
  TreeBitmap: TBitmap;
  Node: PVirtualNode;
  NodeData: ^TYourNodeData; // 替换为实际的节点数据类型
begin
  TreeBitmap := TBitmap.Create;
  try
    TreeBitmap.Width := VirtualStringTree1.Width;
    TreeBitmap.Height := VirtualStringTree1.Height;
    VirtualStringTree1.PaintTo(TreeBitmap.Canvas.Handle, 0, 0);

    Node := VirtualStringTree1.GetFirst;
    while Assigned(Node) do
    begin
      NodeData := VirtualStringTree1.GetNodeData(Node);
      // 处理节点数据，可以根据实际情况进行操作

      Node := VirtualStringTree1.GetNext(Node);
    end;

    TreeBitmap.SaveToFile('TreeNodes.bmp'); // 保存为BMP文件
  finally
    TreeBitmap.Free;
  end;
end;

procedure TForm1.ButtonSaveClick(Sender: TObject);
begin
  SaveTreeNodesAsBMP;
  ShowMessage('节点已保存为BMP文件！');
end;