procedure TSystemForm.PasteBtnClick(Sender: TObject);
var
i : integer;
NewData, OldData: PTreeData;
Node: PVirtualNode;
begin
with VirtualStringTree do
begin
if Assigned(FocusedNode) then
Node := InsertNode(FocusedNode, amInsertAfter)
else
Node := AddChild(nil);
for i := Low(NodeArray) to High(NodeArray) do
begin
OldData := GetNodeData(NodeArray[i]);
NewData := GetNodeData(Node);
NewData^.Caption := OldData^.Caption;
if i <> High(NodeArray) then
Node := InsertNode(Node, amInsertAfter);
end; // for i
ValidateNode(FocusedNode, False);
end; // with
end;