DXInput1.Keyboard.Update;              // update DXInputu
 if isLeft in DXInput1.Keyboard.States  // otočit doleva
  then Dec(Angle,4);
 if isRight in DXInput1.Keyboard.States // otočit doprava
  then Inc(Angle,4);

 if Angle >= 360 then Angle:=0;
 if Angle <= -1 then Angle:=360;

 // XANgle ====================
 XAngle:=Trunc(255/360*Angle);

 // DRAW ==================================
 if Burn then DXIMageList1.Items.Find('shipburn').DrawRotate(
 DXDraw1.Surface,Trunc(XPos),Trunc(YPos),70,70,0,0.5,0.5,XAngle)
 else DXIMageList1.Items.Find('ship').DrawRotate(
 DXDraw1.Surface,Trunc(XPos),Trunc(YPos),70,70,0,0.5,0.5,XAngle);

 Burn:=false;
 if isUp in DXInput1.Keyboard.States    // zvýšit rychlost
  then
   begin
     // zvětšit rychlost ======================
     vx:=cos(DegToRad(Angle));
     vx:=vx * 0.08;

     vy:=sin(DegToRad(Angle));
     vy:=vy * 0.08;

     XVel:=vx+XVel;
     YVel:=vy+YVel;

     Burn:=true;

     //  VoX = cos alpha * Vo
     //  VoY = sin alpha * Vo
   end;

 // UPDATE SHIP =======================================
 XPos:=XPos+XVel;     // posuneme loď
 YPos:=YPos+YVel;

 XVel:=XVel/1.01;     // zmensime Velocity
 YVel:=YVel/1.01;
 if Abs(XVel) < 0.001 then XVel:=0;
 if Abs(YVel) < 0.001 then YVel:=0; 

 if XPos < 0 then XPos:=DXDraw1.SurfaceWidth   // není mimo plochu ???
 else if XPos > DXDraw1.SurfaceWidth then XPos:=0;

 if YPos < 0 then YPos:=DXDraw1.SurfaceHeight
 else if YPos > DXDraw1.SurfaceHeight then YPos:=0;
 // END UPDATE SHIP ==================================

 DXImageList1.Items.Find('pozadi').Draw(DXDraw1.Surface,0,0,0);

const MaxStrel = 25;

type Strela = record
     XPos,YPos,       // pozice
     XVel,YVel:real;  // rychlost
     visible:boolean; // viditelná ?
     Angle:integer;   // úhel
     end;

...

Missile:array [0..MaxStrel] of Strela;
MisCount,
FireCount:integer;

 // STŘELA ======================================
 if isDown in DXInput1.Keyboard.States // vystřelit střelu !!!!!!
  then
   begin
    // až na x-té vystřelit, ať sou ňáký pauzy...
    FireCount:=FireCount+1;
    if FireCount = 10 then
     begin
      mx:=cos(DegToRad(Angle));
      mx:=mx * 30;    // rychlost střely - 30

      my:=sin(DegToRad(Angle));
      my:=my * 30;

      Missile[MisCount].XVel:=mx/10;    // MISCOUNT
      Missile[MisCount].YVel:=my/10;

      Missile[MisCount].XPos:=XPos+mx;  // pozice střely
      Missile[MisCount].YPos:=YPos+my;

      Missile[MisCount].Angle:=XAngle;
      Missile[MisCount].Visible:=true;

      MisCount:=MisCount+1;        // další střela...nebo první ?
      if MisCount > MaxStrel then MisCount:=0;

      FireCount:=0;
     end;
   end
  else if not (isDown in DXInput1.Keyboard.States) then
   begin
    // když nedrží šipku dulů, tak vynulujem FireCOunt, ať to
    // příště vystřelí...
    FireCount:=9;
   end;

 // update pozice střely
 for i:=0 to MaxStrel do
  begin
   if Missile[i].visible then
    begin
     Missile[i].XPos:=Missile[i].XPos+Missile[i].XVel;
     Missile[i].YPos:=Missile[i].YPos+Missile[i].YVel;

     // a nakreslit střelu
     DXImageList1.Items.Find('strela').DrawRotateAdd(DXDraw1.surface,
     Trunc(Missile[i].XPos),Trunc(Missile[i].YPos),8,8,0,0.5,0.5,
     Missile[i].Angle,255);

     // a není už náhodou mimo plochu ???????
     if (Trunc(Missile[i].XPos) < 0) or
     (Trunc(Missile[i].XPos) > DXDraw1.SurfaceWidth) or
     (Trunc(Missile[i].YPos) < 0) or
     (Trunc(Missile[i].YPos) > DXDraw1.SurfaceHeight) then
      begin
       Missile[i].visible:=false;
      end;
    end;
  end;