[Fazotron]

Всмысле типа вот так:

Код:

function GradToRad(Grad : Double) : Double;
begin
Grad:=strtofloat(Edit1.Text);
Rad:= Grad*180/Pi;
GradToRad:=Rad;
end;

function F_Y(A, G : Double) : Double;
begin
A:= strtofloat(Edit2.Text);
y:= A*cos(Rad);
F_Y:=y;
F_Y:= floattostr(Edit3.Text);
end;

function F_X(A, G : Double)  : Double;
begin
A:= strtofloat(Edit2.Text);
x:=A*cos(Rad);
F_X:=x;
F_X:= floattostr(Edit4.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GradToRad;
F_Y;
F_X;
end;

чет не пашет. помогите пожалуйста