رفع مشکل خطای 1050 ناشی از ارتقا برنامه از دلفی 7 به xe4

[khoshblagh]

این خط را به چه شکلی باید بازنویس کرد تا خطای ناشی از char , widChar رفع شود؟ متشکرم
if not( key in ['0'..'9',#46,#8]) then key:=#0;

[khoshblagh]

با سلام
این کد را در یک سایت روسی پیدا کردم. مسئله حل شد.
if (not CharInSet(Key, ['0' .. '9', ',',Chr(8),',',Chr(46)])) then key:=#0;