>>449
マナーは果てしなく悪いので、本当はコンポーネントを作った方がいい。

type TEdit2 = class(TEdit);

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
　var Handled: Boolean);
var
　P: TSmallPoint;
begin
　P := PointToSmallPoint(Edit1.ClientToScreen(MousePos));
　CallWindowProc(TEdit2(Edit1).DefWndProc, Edit1.Handle,
　　WM_CONTEXTMENU, Edit1.Handle, LPARAM(P));
　Handled := True;
end;