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

[Alexandr17]

Я вообще не понял. Там не одна клетка должна рисоваться а 8 клеток окружая персонажа

[Slym]

Так нельзя!!! - Picture.Graphic:=png; только assign!!!

Сообщение от eoln

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

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

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

тут все верно - размер второго измерения, а поскольку матрица квадратная: можно взять размер 1 строки... можно перефразировать

procedure TForm1._ClickHODPers(Sender: TObject);
VAR x, y:INTEGER;
begin
  Xpers:=(Sender AS TIMAGE).Left;
  Ypers:=(Sender AS TIMAGE).Top;
  for x := low(HODPers) to high(HODPers) do
  for y := low(HODPers[low(HODPers)]) to high(HODPers[low(HODPers)]) do
  begin
    if HODPers[x,y] <> nil then
    begin
      HODPers[x, y].Free;
      HODPers[x, y]:=nil; 
    end;
  end;
end;