Привествую всех)))помогите справить ошибку

[MrMorozko]

эту прога для подсчета синисув косинусов тангенса и катангенса..написал сам..не могу понять почему у меня допустим ввожу 5 у меня каждое из выбранного в кеёсе на 10 множит и ответ 50 выходит (( взгляните профессиональным взглядом пожалуйста



procedure TForm1.Button1Click(Sender: TObject);
var d,k,funt,x,:real;
begin


case ListBox1.ItemIndex of
1: k:= sin(x);
2: k:= cos(x);
3: k:=sin(x)/cos(x) ;
4: k:=cos(x)/sin(x) ;
end;

Label4.Caption:= Edit1.Text + FloatToStrF(k, ffFixed,6,3);

end;
end.

[SERG1980]

В расчёте всё нормально Где вы вводите значение х. (В листбоксе индекс начинается с нуля хотя я не знаю может у вас нулевой итемс занят другим, а так удобней использовать радиогруппу )