Не работает игра на канве

[New man]

Пишу игру на канве. желтый квадрат должен уворачиваться от рандомно
движущихся врагов. все враги объединены в один объект. в методе,
организуещем движение противников возникает EAccessViolation.враги
управляются таймером. воттекст модуля.

[New man]

Помогите пожалуйста

[ArtGrek]

вроди надо написать что то типа
перед запуском тимера врагов

Squares := TSquare.Create;

тоесть они у тебя не созданы а обрашение к ним идет

For i:=0 to length(Squares)-1 do

ЗЫ. заливать надо весь проект

[New man]

Squares: array of Tsquare;

constructor TVragi.Create(Canva: TCanvas);
var i:integer;
begin
  SetLength(Squares, ChisloVragov);
  for i:=0 to length(Squares)-1 do
    begin
      Squares[i]:=Tsquare.Create(Canva, VragColor);
      Squares[i].X:=random(Form1.Width-1)+1;
      Squares[i].Y:=random(Form1.Height-1)+1;
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap:=TBitmap.Create;
  Square:=Tsquare.Create(form1.Canvas, BrushColor);
  Vragi:=TVragi.Create(form1.Canvas);
  with Square do
    begin
      x:=Form1.Width shr 1;
      y:=Form1.Height shr 1;
      width:=50;
      Show;
    end;
  Schetchik:=0;
  Timer1.Enabled:=true;
  VragiTimer.Enabled:=true;
end;

После того как я немного изменил вот эту процедуру:

procedure TVragi.UvelCh(Na: integer);
var b,i:integer;
begin
  b:=length(Squares);
  SetLength(Squares, b+na);
  for i:=b to b+na-1 do
    begin
      Squares[i]:=Tsquare.Create(Squares[0].Canvas, VragColor);
      Squares[i].X:=0;squares[i].Y:=0;
    end;
  RandomMove;
end;

ошибка перестала появляться но противников не видно
у таймеров Enabled сначала = false
Почему враги не прорисовываются?

[ArtGrek]

извени но неохота разнираца что к к чему в уме, залеи весь проект с последним исправлением
на практике видно

[New man]

Вот весьпроект

[phomm]

вот исправил, основная ваша ошибка - не задается ширина в конструкторе врагов (и в увеличителе тоже), такж от себя кое-какие доводки выставил , думаю вы согласитесь с ними

[New man]

Спасибо большое))))