Corrected version of ScreenToClient function to support RTL.

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