Вопрос к тем, кто разбирается в Делфи! Помогите !!!

Вот задача.
Парашютист прыгает с некоторой высоты и летит, не открывая парашюта; на какой высоте (или через какое время) ему следует открыть парашют, чтобы иметь к моменту приземления безопасную скорость (не большую 8м/с) ?
Вот Окно Главное.
Вот тест программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit4: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
t,t1,h,h1,a:real;
v,v1:integer;
g,v2,v3,h0,h2,h3:real;

begin
h1:=StrToFloat(edit2.Text);
v:=strToInt(edit1.Text);

if h1>=1500 then
begin
v1:=50;
a:=0.9;
t1:=(v1-v)/a;
h:=v1*t1-(a*SQR(t1))/2;
t:=12+(h1-h-500)/v1;
t:=Round(t);
h:=Round(h);
edit3.Text:=FloatToStr(t);
edit4.Text:=FloatToStr(h);
end;

if (h1<1500) and (h1>=400) then
begin

g:=9.8;
v1:=50;
a:=0.9;
t1:=(-8.73+Sqrt(70+1.96*h1))/(2*0.49);
v3:=v+a*t1;
t:=v3/g;
h:=(g*t*t)/2;
h2:=h1-h;

t:=Round(t);
h2:=Round(h2);
edit3.Text:=FloatToStr(t);
edit4.Text:=FloatToStr(h2);
end;

if h1<400 then showmessage('Совершение прыжка на такой высоте не безопасно для жизни парашютиста');

End;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:='8';
edit2.Text:='2000';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
end;

ВОПРОС! ЧТО НУЖНО ИЗМЕНИТЬ В ТЕКСТЕ, ЕСЛИ УБРАТЬ С ГЛАВНОГО ОКНА ПОЛЕ "ВВЕДИТЕ СКОРОСТЬ КОТОРУЮ ДОЛЖЕН ДОСТИГНУТЬ ПАРАШЮТИСТ? Т. Е. ЧТОБЫ СКОРОСТЬ БЫЛА 8 М/С И ВСЕ. бОЛЬШЕ НИКАКАЯ.

ОЙ! ЧТОБЫ СКОРОСТЬ БЫЛА ПРОСТО НЕ БОЛЬШЕ 8 М/С