PopupMenu mittels Button öffnen?

[AlexII]

Wie öffnet man ein PopupMenu wenn man auf nen Button klickt?

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
PopupMenu1.?????;
end;