Проблема с исходником

[SeregaIRK]

Есть часть исходника "Подобие калькулятора как в Винде"

Код :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

case key of

'1' : begin one.click; One.Perform(BM_SETSTATE,0,0); end;
....................;
end;
end;

Компилятор ругается так :

Statement expected, but expression of type "Integer" found
типа должны быть IF,REPEAT,WHILE (если F1) !

Ругается на Perform ! Ругаются с такой ошибкой и попытки закругления кнопок и даже при использовании API-функций ! Все нужные модули подключены !
Ну всё идеально тока эта ошибка ! Если не использовать метод Perform - всё работает !
На новой пустой форме всё работает !
Подскажите в чём может быть дело ?

[Alter]

Внешне тот отрывок кода, что есть, нормален. Может исходник покажите?

[856100]

'1' : begin one.click; One.Perform(BM_SETSTATE,0,0); end;

Попробуй 1 записать без кавычек:
1 : begin one.click; One.Perform(BM_SETSTATE,0,0); end;

[Serge_Bliznykov]

Сообщение от 856100

Попробуй 1 записать без кавычек:

Глупость. выдаст ошибку несовпадения типов.
т.к. — var Key: Char