Char in CharSet の書き換え
Delphi 2009 では string が UnicodeString になった関係で Ch in ['0' .. '9', '.'] みたいに書くと下記のような警告が出る.
[DCC 警告] main.pas(391): W1050 set 式で WideChar がバイト char に縮小されました。'CharInSet' 関数を 'SysUtils' ユニットで使用することを検討してください。
ので、警告に従って書き換える.
CharInSet(Ch, ['0'..'9', '.'])