Ошибка Undeclared Identifier 'edit1'.

[kote404]

Пишу курсовую работу по информатике.
Начал работу с делфи два дня назад)

при попытке запустить программу, выдает ошибку Ошибка Undeclared Identifier 'edit1'.

вот часть кода.

procedure TForm1.btn1Click(Sender: TObject);
var
d1,d2,d3,ap1,ap2,ap3,ao1,ao2,ao3,ip 1,ip2,ip3,io1,io2,io3,h1,h4,V:Real;


begin
d1:=StrToFloat(Edit1.Text);
d2:=StrToFloat(Edit2.Text);
d3:=StrToFloat(Edit3.Text);
ap1:=StrToFloat(edit4.text)+StrToFl oat(edit5.text)/60;
ap2:=StrToFloat(edit6.text)+StrToFl oat(edit7.text)/60;
ap3:=StrToFloat(edit8.text)+StrToFl oat(edit9.text)/60;
ao1:=StrToFloat(edit13.text)+StrToF loat(edit14.text)/60;
ao2:=StrToFloat(edit15.text)+StrToF loat(edit16.text)/60;
ao3:=StrToFloat(edit17.text)+StrToF loat(edit18.text)/60;
ip1:=StrToFloat(edit10.text);
ip2:=StrToFloat(edit11.text);
ip3:=StrToFloat(edit12.text);
io1:=StrToFloat(edit19.text);
io2:=StrToFloat(edit20.text);
io3:=StrToFloat(edit21.text);
h1:=StrToFloat(edit37.text);
h4:=StrToFloat(edit40.text);
v:=StrToFloat(edit41.text);

edit22.text:=FloatToStr(d1*tan(ap1) +ip1-V);
edit23.text:=FloatToStr(d2*tan(ap2) +ip2-V);
edit24.text:=FloatToStr(d3*tan(ap3) +ip3-V);
edit25.text:=FloatToStr(d1*tan(ao1) +io1-V);
edit26.text:=FloatToStr(d2*tan(ao2) +io2-V);
edit27.text:=FloatToStr(d3*tan(ao3) +io3-V);

что делать?

[p51x]

Добавить Едит на форму с идентификатором edit1