popup on cursor

procedure TFEnTarikBarang.actCariExecute(Sender: TObject);
var
  CurPos: TPoint;
begin
  inherited;
  GetCursorPos(CurPos);
  pop1.Popup(CurPos.x, CurPos.y);
end;

berfungsi untuk menampilkan popup menu pada posisi kursor. jadi kita bisa membuat tombol, apabila ditekan akan menampilkan popup menu.