PopUpMenu

var
   m: TMenuItem;
begin
   m := TMenuItem.Create(Popup1); // "Popup1" ou o nome de seu menu
   m.Caption := ´Este item foi criado "On the Fly"´;
   m.OnClick := MyClick; // Seu evento para o click do mouse

   Popup1.Items.Add(m);
end;