unit  Unit1;

 interface 

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

 type 
  TPix =  record 
    x:  array [ 1 .. 255 ]  of  real;
    y:  array [ 1 .. 255 ]  of  real;
    s:  array [ 1 .. 255 ]  of  real;
    a:  array [ 1 .. 255 ]  of  integer;
   end ;

  TRPix =  record 
    x:  array [ 1 .. 4 ]  of  Real;
    y:  array [ 1 .. 4 ]  of  Real;
    x0:  array [ 1 .. 4 ]  of  Real;
    y0:  array [ 1 .. 4 ]  of  Real;
    r:  array [ 1 .. 4 ]  of  Real;
    a:  array [ 1 .. 4 ]  of  Integer;
    t:  array [ 1 .. 4 ]  of  Real;
   end ;

  TForm1 =  class (TForm)
    Timer2: TTimer;
    PaintBox1: TPaintBox;
     procedure  FormKeyDown(Sender: TObject;  var  Key: Word;
      Shift: TShiftState);
     procedure  Timer2Timer(Sender: TObject);
     procedure  FormPaint(Sender: TObject);
   private 
     { Private declarations } 
     procedure  RocketStart(ni: SmallInt);
   public 
     { Public declarations } 
   end ;

 var 
  Form1: TForm1;
  buff: Tbitmap;

  Sb:  record 
    boom:  array [ 1 .. 10 ]  of  Boolean;
    color:  array [ 1 .. 10 ]  of  TColor;
    elem:  array [ 1 .. 10 ]  of  TPix;
    relem:  array [ 1 .. 10 ]  of  TRPix;
    time:  array [ 1 .. 10 ]  of  Real;
    x0:  array [ 1 .. 10 ]  of  Real;
    y0:  array [ 1 .. 10 ]  of  real;
    rx:  array [ 1 .. 10 ]  of  real;
    ry:  array [ 1 .. 10 ]  of  Real;
    rx0:  array [ 1 .. 10 ]  of  real;
    ry0:  array [ 1 .. 10 ]  of  Real;
    ra:  array [ 1 .. 10 ]  of  real;
    tarx:  array [ 1 .. 10 ]  of  Real;
    tary:  array [ 1 .. 10 ]  of  real;
    allout:  array [ 1 .. 10 ]  of  Boolean;
   end ;

  i, j: integer;  //cycle 
  fcolor: TColor;
  colorchik: SmallInt;
  nrelem: Integer;

 implementation 

 uses  Math;

 {$R *.dfm} 
 const 
  colp =  255 ;
  colv =  10 ;
  colRE =  4 ;
  TimeStep =  0 . 7 ;
  G =  0 . 2 ;
  RSpeed =  5 ;
  RESpeed =  0 . 5 ;
  txt = 'Hello world!';

 procedure  TForm1.FormKeyDown(Sender: TObject;  var  Key: Word;
  Shift: TShiftState);
 begin 
   if  key =  27   then  close;
 end ;

 procedure  TForm1.Timer2Timer(Sender: TObject);
 var  th, tw: Integer;
  kh: Integer;  //cycle 
 begin 
  buff.Canvas.Brush.Color := clBlack;
  buff.Canvas.Pen.Color := clBlack;
  buff.Canvas.Rectangle( 0 ,  0 , buff.Width, buff.Height);

  buff.Canvas.Font.Color := fcolor;
  buff.Canvas.Font.Size :=  76 ;
  buff.Canvas.Font.Name := 'Monotype Corsiva';
   if  fcolor =  0   then  colorchik :=  1 ;
   if  fcolor =  255   then  colorchik := - 1 ;
  TW := buff.Canvas.TextWidth(txt);
  TH := buff.Canvas.TextHeight(txt);
  buff.Canvas.TextOut(Round(buff.Width /  2 ) - round(tw /  2 ), Round(buff.Height /  2 ) - round(th /  2 ), txt);
  fcolor := fcolor + colorchik;

   for  i :=  1   to  colv  do 
   begin 
     if  Sb.boom  then 
     begin   [i]//BOOM! 
      Sb.allout := true;
       for  j :=  1   to  colp  do 
       begin 
         begin 
          Sb.elem[i].x[j] := Sb.x0[i] + Sb.elem[i].s[j] * cos(Sb.elem[i].a[j] * PI /  180 ) * Sb.time[i];
          Sb.elem[i].y[j] := Sb.y0[i] - Sb.elem[i].s[j] * sin(Sb.elem[i].a[j] * PI /  180 ) * Sb.time[i] + G * Sb.time[i] * Sb.time[i] /  2 ;
          buff.Canvas.Pen.Color := SB.color[i];
          buff.Canvas.Brush.Color := SB.color[i];
          buff.Canvas.Ellipse(round(Sb.elem[i].x[j] -  2 ), round(Sb.elem[i].y[j] -  2 ), round(Sb.elem[i].x[j] +  2 ), round(Sb.elem[i].y[j] +  2 ));
           if  (Sb.elem[i].y[j] < buff.Height)  then 
            Sb.allout[i] := false;
         end ;
       end ;
       if  sb.allout[i]  then 
        RocketStart(i);
     end 
     else 
     begin   [i]//ROCKET 

      Sb.rx := Sb.rx0[i] + RSpeed * cos(Sb.ra[i] * PI /  180 ) * Sb.time[i];
      Sb.ry[i] := Sb.ry0[i] - RSpeed * sin(Sb.ra[i] * PI /  180 ) * Sb.time[i];
       if  sb.ry[i] <= sb.tary[i]  then 
       begin 
        Sb.x0[i] := sb.tarx[i];
        Sb.y0[i] := sb.tary[i];
        Sb.time[i] :=  0 ;
        Sb.boom[i] := true;
       end ;
      buff.Canvas.Pen.Color := SB.color[i];
      buff.Canvas.Brush.Color := SB.color[i];
      buff.Canvas.Ellipse(round(Sb.rx[i] -  3 ), round(Sb.ry[i] -  3 ), round(Sb.rx[i] +  3 ), round(Sb.ry[i] +  3 ));

       [i]//--------------------------------------------------------------------- 
       for  kh :=  1   to  colRE  do   //ELEM 
       begin 
         if  sb.relem.r[kh] <  0   then 
         begin 
          Sb.relem[i].r[kh] :=  6 ;
          Sb.relem[i].t[kh] :=  0 ;
          Sb.relem[i].x0[kh] := Sb.rx[i];
          Sb.relem[i].y0[kh] := Sb.ry[i];
          Sb.relem[i].a[kh] := Round(SB.ra[i]) +  180  + random( 180 ) -  90 ;
         end ;

        Sb.relem[i].x[kh] := Sb.relem[i].x0[kh] + RESpeed * cos(Sb.relem[i].a[kh] * PI /  180 ) * Sb.relem[i].t[kh];
        Sb.relem[i].y[kh] := Sb.relem[i].y0[kh] - RESpeed * sin(Sb.relem[i].a[kh] * PI /  180 ) * Sb.relem[i].t[kh];
        sb.relem[i].r[kh] := sb.relem[i].r[kh] -  0 . 1 ;
        buff.Canvas.Ellipse(round(Sb.relem[i].x[kh] - Round(Sb.relem[i].r[kh] /  2 )),
          round(Sb.relem[i].y[kh] - Round(Sb.relem[i].r[kh] /  2 )),
          round(Sb.relem[i].x[kh] + Round(Sb.relem[i].r[kh] /  2 )),
          round(Sb.relem[i].y[kh] + Round(Sb.relem[i].r[kh] /  2 )));
        Sb.relem[i].t[kh] := Sb.relem[i].t[kh] + TimeStep;
       end ;
       [i]//--------------------------------------------------------------------- 
     end ;
    Sb.time[i] := Sb.time[i] + TimeStep;
   end ;

  BitBlt(PaintBox1.Canvas.Handle,  0 ,  0 , PaintBox1.Width, PaintBox1.Height, buff.Canvas.Handle,  0 ,  0 , SRCCOPY);
 end ;

 procedure  TForm1.RocketStart(ni: SmallInt);
 var 
  aTR, bTR: Integer;
  Ji: Integer;
 begin 
   for  ji :=  1   to  colp  do 
   begin 
    Sb.elem[ni].a[ji] := Random( 359 );
    Sb.elem[ni].s[ji] := Random( 1000 ) /  100  +  1 ;
   end ;
  Sb.rx0[ni] := Random(buff.Width) +  1 ;
  Sb.ry0[ni] := buff.Height;
  Sb.rx[ni] := SB.rx0[ni];
  Sb.ry[ni] := SB.ry0[ni];
  Sb.tarx[ni] := Random(buff.Width) +  1 ;
  Sb.tary[ni] := Random(buff.Height - round(buff.Height /  3 )) + round(buff.Height /  3 ) - round(buff.Height /  5 );
  aTR := (round(Sb.tarx[ni] - Sb.rx0[ni]));
  bTR := (round(Sb.ry0[ni] - Sb.tary[ni]));
  Sb.ra[ni] := (ArcTan2(btr, atr) / PI *  180 );

   for  Ji :=  1   to  colRE  do 
   begin 
    Sb.relem[ni].a[ji] := Round(SB.ra[ni]) +  180  + random( 180 ) -  90 ;
    Sb.relem[ni].r[ji] := Random( 5 ) +  1 ;
    Sb.relem[ni].t[ji] :=  0 ;
    Sb.relem[ni].x0[ji] := Sb.rx0[ni];
    Sb.relem[ni].y0[ji] := Sb.ry0[ni];
   end ;

  Sb.boom[ni] := false;
  Sb.allout[ni] := false;
  Sb.color[ni] := Random( 6 ) +  1 ;
   case  Sb.color[ni]  of 
     1 : Sb.color[ni] := clRed;
     2 : Sb.color[ni] := clYellow;
     3 : Sb.color[ni] := clLime;
     4 : Sb.color[ni] := clPurple;
     5 : Sb.color[ni] := clBlue;
     6 : Sb.color[ni] := clAqua;
   end ;
  Sb.time[ni] :=  0 ;
 end ;

 procedure  TForm1.FormPaint(Sender: TObject);
 begin 
  PaintBox1.Left :=  0 ;
  PaintBox1.Top :=  0 ;
  PaintBox1.Width := form1.Width;
  PaintBox1.Height := form1.Height;
  buff := TBitmap.Create;
  buff.Width := PaintBox1.Width;
  buff.Height := PaintBox1.Height;
  buff.PixelFormat := pf32bit;
  fcolor :=  0 ;
  randomize;
   for  i :=  1   to  colv  do 
   begin 
    RocketStart(i);
   end ;
  Timer2.Enabled := true;
 end ;

 end .