Delphi Popup Menu

procedure bCetakDetailClick(Sender: TObject);
var
   p : TPoint;
begin
   with Sender as TButton do
   begin
      if PopupMenu2 = nil then
         beep
      else
         begin
            GetCursorPos( p );
            p.x := Left + 1;
            p.y := Top + Height + 1;
            p := Self.ClientToScreen( p );
            PopupMenu2.popup( p.x, p.y );
         end;
   end;
end;