делфи, анимация

[lvl]

можете обьяснить алгоритм по делфи??

procedure TForm1.Timer1Timer(Sender: TObject);
const
dx=10;
begin
  repaint;
  image2.Left:=a;
  image2.Top:=b;
  if a>100
    then
     begin
        if (a>380) and (b<-120) then
            begin
             timer1.Enabled:=false;
             image3.Visible:=true;
             label1.visible:=true;
             timer2.Enabled:=true;
             exit;
           end;
           if (y+9*dx)>=clientheight
          then y:=y-4;
        y:=y+4;
        a:=a+3;
        b:=b-2;
      end
    else
      begin
        a:=a+4;
        b:=b+3;
      end
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.