procedure TForm1.Button1Click(Sender: TObject);
var
  i, iNode : integer ;
  sParent, sCap : string ;      function FindTreeNode(tv:TTreeView;sCap:string):TTreeNode ;
  var
    i : integer ;
  begin
    Result:=nil ;
    for i:=0 to tv.Items.Count-1 do
      begin
      if tv.Items[i].Text=sCap then
        begin
        Result:=tv.Items[i] ;
        break ;
        end ;
      end ;
  end ;
begin
  for i:=0 to ComponentCount-1 do
    begin
    if Components[i] is TMenuItem then
      begin
      sParent:=TMenuItem(Components[i]).Parent.caption ;
      sCap:=TMenuItem(Components[i]).Caption ;
      if sParent='' then
        TreeView1.Items.Add(nil,sCap)
      else
        begin
        TreeView1.Items.AddChild(FindTreeNode(TreeView1,sParent),sCap) ;
        end ;
      end ;
    end ;
end;