PopupMenu i Combobox - dodanie itemów

Witam!
Jak można dodać do PopupMenu wszystkie itemy z Comboboxa?

Dzięki za wskazówki :)

procedure TForm1.OnClicks(Sender: TObject);
begin
if not (Sender is TMenuItem) then exit;
MessageBox(0, pchar(StringReplace(TMenuItem(sender).Caption,'&', '', [rfReplaceAll])),'',MB_OK);
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var i:integer;
    menuitem:TMenuItem;
begin
PopupMenu1.Items.Clear;
for i:=0 to ComboBox1.Items.Count-1 do
  begin
  menuitem:=TMenuItem.Create(PopupMenu1);
  menuitem.Caption:=ComboBox1.Items[i];
  menuitem.OnClick:=OnClicks;
  PopupMenu1.Items.Add(menuitem);
  end;
end;