//Процедура обработки события нажатия кнопки Button1
Procedure TForm1.Button1Click(Sender: TObject);
var
x, y, z, fx:
extended; //объявление локальных переменных
begin
x:=StrToFloat(Edit1.Text); //X присваивается содержимое Edit1
y:=StrToFloat(Edit2.Text); //Y присваивается содержимое Edit2
fx:=sin(x); //fx присваивается начальное значение
//Выбор функции, соответствующей нажатой кнопке
case RadioGroup1.ItemIndex of
0: fx:=sin(x);
1: fx:=cos(x);
end;
Тип Extended является типом числа с плавающей запятой, используется когда требуются самая высокая точность и/или самая высокая экспонента.