Ошибка при динамическом стирание объектов

[Alexandr17]

procedure TForm1._ClickHODPers(Sender: TObject);
VAR I, I1:INTEGER;
begin
  Xpers:=(Sender AS TIMAGE).Left;
  Ypers:=(Sender AS TIMAGE).Top;
  for i := 0 to length(HODPers)-1 do for i1 := 0 to length(HODPers[0])-1 do begin
    if HODPers[i, i1] <> nil then
      HODPers[i, i1].Free;
  end;
end;

procedure TForm1._ClickPersonages(Sender: TObject);
begin

  if Personages.Left <> 0 then begin
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Top:=Personages.Top;
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[(Personages.Left-32) div 32, Personages.Top div 32].OnClick:=_ClickHODPers;
  end;

  if Personages.Left+32 <> MAPS.Width then begin
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Left:=Personages.Left+32;
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Top:=Personages.Top;
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].AutoSize:=True;
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[(Personages.Left+32) div 32, Personages.Top div 32].OnClick:=_ClickHODPers;
  end;

  if Personages.Top <> 0 then begin
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Left:=Personages.Left;
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].AutoSize:=True;
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[Personages.Left div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
  end;

  if Personages.Top+32 <> MAPS.Height then begin
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Left:=Personages.Left;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left <> 0)and(Personages.Top <> 0) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left <> 0)and(Personages.Top+32 <> MAPS.Height) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;
...
end;

но в событии procedure TForm1._ClickHODPers(Sender: TObject); возникает системная ошибка

[eoln]

бросается в глаза счётчик во втором цикле

for i := 0 to length(HODPers)-1 do for i1 := 0 to length(HODPers[0])-1 do begin

Там HODPers[i] по идее должно быть

[Alexandr17]

Даже исли исправить то все равно системная ошибка

[eoln]

Что за ошибка (текст/скрин) возникает при отладке и на какой строке?

[Alexandr17]

отловить на какой строке не получится. Гдето в цикле а скрин ошибки вот

[eoln]

Объекта там нет, вот и возникает ошибка. Возможно при втором клике происходит. Сразу после создания массива проиницилизируй его nil'ами, а при удалении тоже присваивай nil, что-то типа этого (смотря чем является HODPers)

if HODPers[i, i1] <> nil then begin
      HODPers[i, i1].Free;
      HODPers[i, i1]:=nil
end;

И лучше по F8 пробежаться, чтоб найти строчку

[Alexandr17]

Вот ммасив объекта. HODPers:array[0..4,0..4] of timage;
так что это после create объекта делать

[eoln]

Инициализировать когда? - сразу после объявления массива, ещё до создания объекта.
Если массив глобальный, то где-то в CreateForm, если локальный - то в начале функции

[Alexandr17]

Массив глобальный. Но создаваться объекты должны только по нажатию на персонажа

[eoln]

Это не влияет на создание персонажей
CreateForm можно добавить

for i := 0 to 4 do for i1 := 0 to 4 do HODPers[i, i1] := nil

А при удалении обязательно

if HODPers[i, i1] <> nil then begin
      HODPers[i, i1].Free;
      HODPers[i, i1]:=nil
end;