Delphi программа

[бедный_студент]

(за заголовок не ругайте движок только с таким создал тему, было: Delphi моделирование тонущей бомбы с тригером)

ребят подправьте пожалуйста код если кто сможет.
задача такая:
глубинная бомба, установленная на взрыв на заданой глубине,
сбрасывается со стоящего неподвижно противолодочного корабля.
исследовать связь между временем достижения заданной глубины
и формой корпуса (сферической, каплевидной, получферической и т.д.)

вот код

procedure TForm1.Button4Click(Sender: TObject);

var
trigger:double; // ãëóáèíà ñðàáàòûâàíèÿ äåòîíàòîðà
glubina:double; // ãëóáèíà ñàìîé áîìáû ïðè ïîãðóæåíèè
Frez:double; // ðåçóëüòèðóþùàÿ ñèëà 
FsoprVoda:double; // ñèëà ñîïðîòèâëåíèÿ â âîäå
Fsopr:double; //ñèëà ñîïðîòèâëåíèÿ âû÷èòàåìàÿ èç ñèëà ïðèòÿæåíèÿ
FsoprBomba:double; // ñèëà òðåíèÿ ôîðìû îáîëî÷êè áîìáû
Speed:double; // ñêîðîñòü òîíåíèÿ
Fprit:double; // ñèëà ïðèòÿæåíèÿ = g=9,8* m
M: double; // ìàññà áîìáû

const
G=9.8;

begin
edit1.text:=floattostr(FsoprVoda);
edit2.text:=floattostr(trigger);
edit3.text:=floattostr(FsoprBomba);
edit4.text:=floattostr(M);

while (trigger<Glubina)    do
begin
Fprit:=M*G;      // ñèëà ïðèòÿæåíèÿ áîìáû
Fsopr:=FsoprVoda+FsoprBomba; // ñóììàðíîå ñîïðîòèâëåíèå òîíóùåé áîìáå
Frez:=Fprit-Fsopr; // ðåçóëüòèðóþùàÿ ñèëà
Speed:=Frez/M; // ñêîðîñòü óòîïàíèÿ
//...
trigger:=trigger+Speed;
//...
showmessage('âçðûâ');
end;
break;
end;

мне нужно подправить, чтобы расчет велся правильно. а то прога циклится и при этом сама почему то выводит в поля значения переменных когда висит сообщение showmessage (Оо)
модель такая:
объект в начальной позиции.
старт модели. на объект действует гравитация и он тонет в воде испытывая сопротивление среды. т.е. сила гравитации минус сила сопротивления = результирующая сила. делим её на вес получаем вектор-перемещение за 1 фрейм так сказать. потом это значение перемещения вычитается из положения начальной координаты и так в цикле считается по кругу до тех пор пока глубина бомбы меньше тригера(условие для срабатывания). когда он срабатывает выдается сообщение - взрыв.

и соурс:

[бедный_студент]

кажется меня осенило, щас попробую смоделировать вязкость жидкости, площадь встречного сопротивления и второй закон ньютона )))

[бедный_студент]

что то не то меня осенило... ваши советы ? можете свои модели предлагать

[evg_m]

сама почему то выводит в поля значения переменных

FsoprVoda;=strtofloat(edit1.text);//ввести данные из Edit1
edit1.text:=floattostr(FsoprVoda);// а это вывести данные в Edit1

[бедный_студент]

пардон) давно не программировал