Corrected version of ClientOrigin function to support RTL.

function ClientOrg(Ctl: TControl): TPoint;