Corrected version of ClientToScreen function to support RTL.

function Client2Screen(Ctl: TControl; Point: TPoint): TPoint;