Delphi_Program Menghitung Rumus Kerucut Menggunakan Delphi

penghitungan Rumus kerucut
menggunakan Delphi :
procedure TForm1.Button1Click(Sender:
TObject);
var T,R,S,V,L :real;
begin
T:=StrToFloat(Edit1.Text);
R:=StrToFloat(Edit2.Text);
S:=StrToFloat(Edit3.Text);
V:=1/3*3.14*R*R*t;
L:= 3.14*R*(r+s);
Edit4.Text:= FloatToStr(V);
Edit5.Text:= FloatToStr(L);
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit1.SetFocus;
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
Close;
end;
end.