Мдаа... Это с какой книжки вы так переписывали? Ошибок тьма.
1. Исправьте неверное сравнение в if (3-штука)
2. Поставьте скобку в A:=StrToFloatLabeledEdit1.Text) (1-штука)
3. Напишите без ошибок Shoemessege('введите X'); (3-штука по 2-ошибка)
Если ошибки победите можно еще оптимизировать код, привязав все ваши Label к одному обработчику события. У вас-же они одинаковые.
|