Наложить на координатную сетку название областей.

const n=3; //размер матрицы
      d=50; //размеры поля(50Х50)
type pole=record  //тип поле
          x1,y1,x2,y2:integer;//экранные координаты поля
          x11,y11,x12,y12:integer;//реальные координаты поля
          k:integer;//номер поля
          end;
var
  Form1: TForm1;
  a:array[1..2*n,1..2*n] of pole;//матрица полей
implementation
 
{$R *.dfm}
//функция принадлежности точки полю
function yes(x,y:integer;p:pole):boolean;
begin
yes:=(x>p.x1)and(x<p.x2)and(y>p.y1)and(y<p.y2);
end;
//зададим некоторые параметры
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientHeight:=d*2*(n+1);
ClientWidth:=600;
Position:=poScreenCenter;
ClientWidth:=ClientHeight+300;
with Memo1 do
 begin
  left:=Form1.ClientWidth-250;
  width:=200;
  top:=d div 2;
  height:=Form1.ClientHeight-d;
 end;
end;
//рисуем поля и координаты
procedure TForm1.FormPaint(Sender: TObject);
var x0,y0,i,j,k,x,y:integer;
begin
x0:=ClientWidth div 3;
y0:=ClientHeight div 2;
with Canvas do
 begin
  //оси координат
  pen.Width:=2;
  pen.Color:=clBlue;
  moveto(x0-n*d,y0);
  lineto(x0+n*d+20,y0);
  moveto(x0,y0-n*d-20);
  lineto(x0,y0+n*d);
  moveto(x0,y0-n*d-20);
  lineto(x0-5,y0-n*d);
  moveto(x0,y0-n*d-20);
  lineto(x0+5,y0-n*d);
  font.Color:=clBlue;
  font.Style:=[fsBold];
  textout(x0+10,y0-n*d-20,'Y');
  moveto(x0+n*d+20,y0);
  lineto(x0+n*d,y0-5);
  moveto(x0+n*d+20,y0);
  lineto(x0+n*d,y0+5);
  textout(x0+n*d+10,y0-20,'X');
  //координатная сетка
  pen.Width:=1;
  for i:=1 to n do
   begin
    moveto(x0+i*d,y0-n*d); lineto(x0+i*d,y0+n*d);
    moveto(x0-n*d,y0-i*d); lineto(x0+n*d,y0-i*d);
    moveto(x0-i*d,y0-n*d); lineto(x0-i*d,y0+n*d);
    moveto(x0-n*d,y0+i*d); lineto(x0+n*d,y0+i*d);
    textout(x0+i*d-10,y0+5,inttostr(i));
    textout(x0-i*d+5,y0+5,inttostr(-i));
    textout(x0-15,y0-i*d+5,inttostr(i));
    textout(x0-15,y0+i*d-20,inttostr(-i));
   end;
  //подписи имен полей 
  font.Color:=clBlack;
  k:=0;
  y:=y0-round(2.5*d);
  for i:=1 to 2*n do
   begin
    x:=x0-round(2.5*d);
    for j:=1 to 2*n do
     begin
      inc(k);
      textout(x-5,y-5,'N'+inttostr(k));
      x:=x+d;
     end;
    y:=y+d;
   end;
 end;
//создадим матрицу полей 
k:=0;
x:=x0-n*d;
y:=y0-n*d;
for i:=1 to 2*n do
for j:=1 to 2*n do
 begin
  a[i,j].x1:=x+(j-1)*d;
  a[i,j].y1:=y+(i-1)*d;
  a[i,j].x2:=a[i,j].x1+d;
  a[i,j].y2:=a[i,j].y1+d;
  a[i,j].x11:=j-n-1;
  a[i,j].y11:=n-i+1;
  a[i,j].x12:=a[i,j].x11+1;
  a[i,j].y12:=a[i,j].y11-1;
  inc(k);
  a[i,j].k:=k;
 end;
end;
//нажатие в поле
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i,j:integer;
begin
for i:=1 to 2*n do
for j:=1 to 2*n do
if yes(x,y,a[i,j]) then
Memo1.Lines.Add('N'+inttostr(a[i,j].k)+' это поле с координатами '+
                '[('+inttostr(a[i,j].x11)+';'+inttostr(a[i,j].y11)+
                ');('+inttostr(a[i,j].x12)+';'+inttostr(a[i,j].y12)+
                ')]');
 
end;

//координатная сетка
  pen.Width:=1;
  for i:=1 to n do
   begin
    moveto(x0+i*d,y0-n*d); lineto(x0+i*d,y0+n*d);
    moveto(x0-n*d,y0-i*d); lineto(x0+n*d,y0-i*d);
    moveto(x0-i*d,y0-n*d); lineto(x0-i*d,y0+n*d);
    moveto(x0-n*d,y0+i*d); lineto(x0+n*d,y0+i*d);
//можно здесь
    textout(x0+i*d-10,y0+5,inttostr(2*i));
    textout(x0-i*d+5,y0+5,inttostr(-2*i));
    textout(x0-15,y0-i*d+5,inttostr(2*i));
    textout(x0-15,y0+i*d-20,inttostr(-2*i));
   end;

//создадим матрицу полей 
k:=0;
x:=x0-n*d;
y:=y0-n*d;
for i:=1 to 2*n do
for j:=1 to 2*n do
 begin
  a[i,j].x1:=x+(j-1)*d;
  a[i,j].y1:=y+(i-1)*d;
  a[i,j].x2:=a[i,j].x1+d;
  a[i,j].y2:=a[i,j].y1+d;
//вот это!!!
  a[i,j].x11:=2*(j-n-1);
  a[i,j].y11:=2*(n-i+1);
  a[i,j].x12:=a[i,j].x11+2;
  a[i,j].y12:=a[i,j].y11-2;
  inc(k);
  a[i,j].k:=k;
 end;
end;

Image1.Canvas.Brush.Color:=clRed;
ellipse(x0+round(Xrinotr*d-2,y0-round(Ymicromacro*d)-2,x0+round(Xrinotr*d+2,y0-round(Ymicromacro*d)+2),

Image1.Canvas.Moveto(x0,y0);
Image1.Canvas.Lineto(x0+round(Mx*d),y0-round(My*d));

var
  Form1: TForm1;
  a:array[1..2*n,1..2*n] of pole;//матрица полей
  x0,y0:integer;//начало координат,  глобальные, для всех процедур

procedure TForm1.FormPaint(Sender: TObject);
var i,j,k,x,y:integer;

with Canvas do
 begin
  Moveto(x0,y0);
  Lineto(x0+round(Mx*d),y0-round(My*d));
 end;