А мой косяк в чем? :)

[zumm]

  Shot=record
    square: array[1..4,1..2] of single;
    angle: integer;
    power: byte;
    speed: byte;
  end;

  TTank=class
    ...
  public
    Shots: array of Shot;
    ...
  end;

procedure TTank.Fire(power: byte);
var
  alfa: single;
  xn,yn: single;

procedure Construction;
var
  alfa,r: single;
begin
  alfa:=(-Shots[Length(Shots)].Angle-45)*pi/180;
  r:=sqrt(2)*2;
  Shots[Length(Shots)].square[1,1]:=x+r*cos(alfa+pi/2);
  Shots[Length(Shots)].square[1,2]:=y+r*sin(alfa+pi/2);

  Shots[Length(Shots)].square[2,1]:=x+r*cos(alfa);
  Shots[Length(Shots)].square[2,2]:=y+r*sin(alfa);

  Shots[Length(Shots)].square[3,1]:=x+r*cos(alfa+3*pi/2);
  Shots[Length(Shots)].square[3,2]:=y+r*sin(alfa+3*pi/2);

  Shots[Length(Shots)].square[4,1]:=x+r*cos(alfa+pi);
  Shots[Length(Shots)].square[4,2]:=y+r*sin(alfa+pi);
end;

begin
  SetLength(Shots,Length(Shots)+1);
  alfa:=(tower.CurrentAngle+90)*pi/180;
  Shots[Length(Shots)].power:=power;
  Shots[Length(Shots)].angle:=tower.CurrentAngle;
  case power of
    1: begin
      xn:=42*sin(alfa);
      alfa:=tower.CurrentAngle*pi/180;
      yn:=6*cos(alfa);
      Shots[Length(Shots)].square[1,1]:=tower.square[1,1]+xn;
      Shots[Length(Shots)].square[1,2]:=tower.square[1,2]+yn;
      Shots[Length(Shots)].speed:=20;
      Construction;
    end;
    2: begin
      xn:=54*sin(alfa);
      alfa:=tower.CurrentAngle*pi/180;
      yn:=6*cos(alfa);
      Shots[Length(Shots)].square[1,1]:=tower.square[1,1]+xn;
      Shots[Length(Shots)].square[1,2]:=tower.square[1,2]+yn;
      Shots[Length(Shots)].speed:=20;
      Construction;
    end;
    3: begin
      xn:=42*sin(alfa);
      alfa:=tower.CurrentAngle*pi/180;
      yn:=6*cos(alfa);
      Shots[Length(Shots)].square[1,1]:=tower.square[1,1]+xn;
      Shots[Length(Shots)].square[1,2]:=tower.square[1,2]+yn;
      Shots[Length(Shots)].speed:=30;
      Construction;
    end;
    4: begin
      xn:=54*sin(alfa);
      alfa:=tower.CurrentAngle*pi/180;
      yn:=6*cos(alfa);
      Shots[Length(Shots)].square[1,1]:=tower.square[1,1]+xn;
      Shots[Length(Shots)].square[1,2]:=tower.square[1,2]+yn;
      Shots[Length(Shots)].speed:=30;
      Construction;
    end;
  end;
end;

при вызове Fire, Shots не заполняется...Все значения равны 0.
Паааачиму?!

[Utkin]

Shots[Length(Shots)].power:=power;

Последний элемент массива всегда меньше Length(Shots) ровно на единицу, потому что индексация массивов обычно идет от нуля (особенно если он динамический). Вообще компилятор тебя тоже должен послать, если у тебя проверка выхода за границы массивов не отключено.

[zumm]

Как не странно компилятор молчит Сначала и было -1, я подправил, компилятор молчал, ну я и подумал "О! Ты смотри, я код оптимизировал на 100 лишних знаков!"

[Stilet]

Господа, а вы не хотите называть темы содержательно, а?
Может приболели? Так я горчичнички сейчас достану.