Delphi, Метод молекулярной динамики, нужно срочно, пожалуйста до 25.12.2016 включительно

[Lantsevrot]

Я написал бОльшую часть курсача, теперь дали задание сделать модель двухатомного газа - между двумя частицами одной молекулы газа взамодействие Леннарда-Джонса не происходит, они взаимодествуют между собой словно два шарика связанные жесткой пружиной, однако каждый из атомов молекулы взаимодествует с помощью потенциала Леннарда-Джонса с другими атомами других молекул. Делаю так в процедуре таймера:

procedure TForm9.Timer1Timer(Sender: TObject);
Var
Time, l:integer;
Fx, Fy, h: real;
begin
  i:=1;
  while i<=MaxAtoms do begin     //условие парных частиц
    i:=i+2;
    mol[i]:=i;
    mol[i+1]:=i;
  end;

for Time:= 0 to 599 do
     begin
  for i:=1 to MaxAtoms do
      begin
        for j:=i+1 to MaxAtoms do
         begin
  h:=sqrt(Sqr(atom[i].x-atom[j].x)+Sqr((atom[i].y-atom[j].y)));  //расстояние между центрами атомов


  if (s>1) and (mol[i]=mol[j]) then
  begin
  Fx:=Fk()*abs((atom[i].x-atom[j].x)/h);     //проекция силы
  Fy:=Fk()*abs((atom[i].y-atom[j].y)/h);
  end
  else
  Fx:=F()*abs((atom[i].x-atom[j].x)/h);
  Fy:=F()*abs((atom[i].y-atom[j].y)/h);

где S (1 или 2) - значение которое мы вводим самостоятельно, обозначающее одно- или двухатомный у нас газ. Когда S=1 все работает, для S=2 частицы отрисовываются, но после нажатия кнопки запуска частиц ничего не происходит, очень нужно исправить это, в программе ДОЛЖЕН быть выбор между одноатомным газо или двухатомным (на фотке "атомы" связаны очень жесткой пружиной (коэффициент жесткости пружины k=500)). Для того чтобы решть поставленную задачу, думаю, знать что такое потенциал леннарда-Джонса не обязательно, но принцип такой - на определенном расстоянии частицы не взаимодествуют друг с другом; на меньшем расстоянии взаимодествуют и притягиваются, на каком-то критическом расстоянии начинают отталкиваться друг от друга. Я не знаю сколько это может стоить, но ведь бОльшая часть работы выполнена)))

[Lantsevrot]

я нашел ошибку, искренне прошу прощения)