[Ankor]

Сделал так, но не работает, и как тогда эту строчку прописать:

Код:

Label1.caption:=(format('Событие %s%d',['',M[(X div a)+1,(Y div b)+1]]));

Код:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Form1: TForm1;
 M: Array [1..20] of Array [1..20] of Array [1..20]of Integer;

 implementation

{$R *.dfm}
function numnum(var sss:string):string;//получаем число до первого ":" и удаляем его вместе с ":" из строки
var n:integer;
begin
result:=sss;
if length(sss)<=1 then exit;
n:=pos(':',sss);//позиция ":"
if n=0 then exit;//значит последнее число
result:=copy(sss,1,n-1);//копируем число
delete(sss,1,n);//удаляем
end;
Procedure UstSob;
Var
 i,j,n: Integer;
begin
 For n:= 1 To 20 Do
 For i:= 1 To 20 Do
  For j:= 1 To 20 Do M[n,i,j]:= 0; // Обнулим все ячейки

end;




  procedure ReadFile(const FileName:string);
var F: TextFile;
 S,S1: string;
 i,j,n:integer;
Begin
AssignFile(F, FileName);
 Reset(F);
n:=0;
while (not eof(f)) do begin
Readln(F, S);
if copy(S,1,5)='#Pole1' then begin
S1:=copy(S,6,maxint);
n:=strtointdef(S1,1);
j:=1;//По X
while (not eof(f)) do begin
 Readln(F, S);//читаем строку
 for i:=1 to 20 do begin  //По Y
 M[n][i][j]:=strtoint(numnum(s));//читаем 20 чисел из строки. Числа из строки удаляются
end;
 inc(j);
end;
end;
end;
 CloseFile(F);

  end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);


Const
 a = 20;
 b = 20;
begin

 Image2.Left:= a*(X div a);
 Image2.Top:= b*(Y div b);

Label1.caption:=(format('Событие %s%d',['',M[(X div a)+1,(Y div b)+1]]));//так быстрее проверять)


end;


procedure TForm1.FormCreate(Sender: TObject);
begin
ReadFile('2.txt'); //Читаем файл и заполняем массив
end;

end.

Подскажите пожалуйста, как правильно сделать?