[Alexandr_17_10]

Код:

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;

  if (Personages.Left+32 <> MAPS.Width)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+32 <> MAPS.Width)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); ПРОИСХОДИТ СИСТЕМНАЯ ОШИБКА

[M.A.D.M.A.N.]

Caps Lock неисправен?

[phomm]

А по-моему, Ctrl+C Ctrl+V заело

[lmikle]

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

В СОБЫТИЕ procedure TForm1._ClickHODPers(Sender: TObject); ПРОИСХОДИТ СИСТЕМНАЯ ОШИБКА

Телепаты в отпуске. На какой строчке и какая ошибка?