[Angel86rus]

Спасибо разобрался, вот кому нужно.

Код:

 with (GetPopupMenu as TPopupMenu) do
      begin
        Menu:=TMenuItem.Create(self);
        Menu.Caption := btn1.Caption;
        Menu.OnClick := nil;
        Items.Insert(0, Menu);
      end;