PopupMenü zur Laufzeit

[Blackheart]

Hallo Leute
Wie erstelle Ich zur Laufzeit ein PopUpMenu für RichEdit ?
Hab schon die Suche bemüht und schon einiges probiert aber es
klappt nicht so recht.
Vieleicht hatt das ja schon wer von Euch getan und kann Mir mal
ein paar Tips dazu geben.

Delphi-Quellcode:

RE:=TPopUpMenu.Create(RichEdit1);
  RE.Name:='Test';
  RE.Items.Caption:='Test';