tlabel

Ответ от Gennady[гуру]
Доброго временим суток.
Рекомендуется для таких целей использовать function StrToInt(const S: string): Integer; , поскольку в ней уже реализована обработка исключений.
В вашем случае нужно записать
alfa := StrToInt(Edit1.Text);
Далее. Не забудьте, что для тригонометрических функций аргумент требуется указывать в радианах, т. е. тип аргумента не целое число, а действительное. Поэтому, если вводите его в поля в градусах, потребуется преобразование. Возвращаемое значение, тоже действительлное число. Следовательно, тип alfa, z1и z2 надо изменить на, допустим, Real; и для преобразования в число использовать функцию StrToFloat(). Обратное преобразование для отображения нужно делать с помощью FloatToStr();
Удачи!