Помогите!!!

[sPan4eZ]

Всем привет!!!

Что за трабла в этом коде?

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if    NOT (Key in ('0'..'9', '.', #8, #13)) // разрешенные клавиши
    OR (    (Key = '.')                  // пользователь нажал '.'
    AND (POS ('.', Edit1.Text) > 0)) // десятичная точка уже имеется
    then
    begin
      Key := #0;
      MessageBeep (MB_OK);
  end;
  end;

Выдает вот какие ошибки:

[Error] Unit1.pas(54): ')' expected but '..' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Помогите плиззз вопрос жизни и смерти

[Alex Cones]

('0'..'9',

Такая запись не допускается. Либо используем при записи весь ряд либо квадратные скобки - [].

From Stilet: Подправлю пост малось, надеюсь Алекс не против, ато автор может не понять вдруг имелся ввиду танк КВ