[wetalq]

Сообщение от poli-smen

В операторе in нельзя использовать переменные - только константы. А DecimalSeparator - это переменная.

Разобрался )

Код:

if not (Key in ['0'..'9',',',#8])then
    begin
       Key := #0;
       MessageBeep (MB_OK);
    end;