Вопрос по PopupMenu

[Lonix]

Допустим мы прикрепили PopupMenu к картинке, когда мы нажимаем на картинку появляется наше меню, но оно появиться если нажать правой кнопкой мыши, а как сделать так чтобы надо было нажимать левой кнопкой мыши?

[BOBAH13]

procedure OnMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
PopupMenu.Popup(
Mouse.CursorPos.X - X,
Mouse.CursorPos.Y - Y
);
end;

таким образом меню появится в левом верхнем углу