procedure ShowRight(CTV:TCnCheckTreeView);
var
  node:TTreeNode;
  i,j:Integer;
begin
  for i:= 0 to MainFrm.actmmb1.ActionClient.Items.Count - 1 do
  begin
    node:=CTV.Items.Add(nil,MainFrm.actmmb1.ActionClient.Items[i].Caption);
    for j:=0 to MainFrm.actmmb1.ActionClient.Items[i].Items.Count -1 do
    begin
      CTV.Items.AddChild(node,MainFrm.actmmb1.ActionClient.Items[i].Items[j].Caption);
    end;
  end;
end;