составить программу вычисления значений Y

[Настька]

не получается запустить вроде бы все правильно, но не могу найти ошибку помогите!!!!
y=a*b-x-c если |1-b|=a
y=a+b*c*x если |1-b|>a
y=b*c-x+a если |1-b|<a
только одна проблема нужно сделать 3мя способами grup box, check box and radio box. Очень нужно плиз.

[Stilet]

Что не получается запустить?

[sofiya]

ошибки выдает именно когда я пытаюсь запустить каждый из любых способов. 3 раза переделать пыталась(

[Grag]

Ну так показывай, что сделала!!! Где и какие ошибки???

[sofiya]

чтото вроде
error in module unit4: declarationof class tform4 is missing or incorrect

[Grag]

Это что-то вроде где-то тама...

[sofiya]

begin
Edit5.visible:=false;
Edit6.visible:=false;
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
x:=StrToFloat(Edit4.Text);
y:=sin(exp(a+b))+sqr(x);
y:=arctan(a*b*c)+exp((1/3)*ln(x));
y:=cos(sqrt(abs(x+a*b*c)));
end;


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
x:=StrToFloat(Edit4.Text);
y:=sin(exp(a+b))+sqr(x);
Edit7.Text:=FloatToStrF(y,ffGeneral ,5,2);
Edit7.visible:=true;
;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
x:=StrToFloat(Edit4.Text);
y:=arctan(a*b*c)+exp((1/3)*ln(x));
Edit7.Text:=FloatToStrF(y,ffGeneral ,5,2);
Edit7.visible:=true;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
x:=StrToFloat(Edit4.Text);
y:=cos(sqrt(abs(x+a*b*c)));
Edit7.Text:=FloatToStrF(y,ffGeneral ,5,2);
Edit7.visible:=true;