[Electronic_Arts]

АААА сссори решил проблему - если что вот код

Код:

procedure TForm1.MoveNode(TargetNode, SourceNode: TTreeNode);
var
  nodeTmp: TTreeNode;
  i: Integer;
begin
  with TreeView1 do
  begin
    nodeTmp := Items.AddChild(TargetNode, SourceNode.Text);
    nodetmp.ImageIndex:=treeview1.Selected.ImageIndex;
    nodetmp.SelectedIndex:=TreeView1.Selected.SelectedIndex;
    for i := 0 to SourceNode.Count - 1 do
    begin
      sourcenode.ImageIndex:=sourcenode.Item[i].ImageIndex;
      sourcenode.SelectedIndex:=sourcenode.Item[i].SelectedIndex;
      MoveNode(nodeTmp, SourceNode.Item[i]);
    end;
  end;
end;

Но как быть с -

Код:

node.expandedimageindex:=2;

не пашет оно....что делать?