Поймать клик на "недоступной" панели

procedure TForm4.Panel2Click(Sender: TObject);
 var
  pt: TPoint;
xar,yar:integer;
begin
GetCursorPos(pt); 
pt:=ScreenToClient(pt);
Form4.Memo1.Lines.Text:=IntToStr(pt.x)+'_'+inttostr(pt.y);
end;

pt:=panel1.ScreenToClient(pt);

procedure TForm1.ChildClick(Sender: TObject);
var pt: TPoint;
begin
  GetCursorPos(pt);
  pt := (Sender as TControl).Parent.ScreenToClient(pt);
  Form4.Memo1.Lines.Text:=IntToStr(pt.x)+'_'+inttostr(pt.y);
end;
 
// ...
  NewImage.OnClick := ChildClick;
// ...

procedure TForm4.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
  for i:=1 to 100 do
  for j:=1 to 100 do
  begin
  basement[i,j]:=chr(i+ord('0'));
  end;
 
  for i:=1 to 20 do
  for j:=1 to 20 do
  begin
  Field[i,j]:=TImage.Create(form4);
  field[i,j].Parent:=Form4.Panel2;
  field[i,j].Canvas.Brush.Color:=clRed;
  field[i,j].Canvas.Pen.Color:=clRed;
  Field[i,j].Top :=-25+25*i;
  Field[i,j].Left :=-25+25*j;
  end;
  xpos:=20;
  ypos:=20;
  sidecordinit;
  setposition(xpos,ypos);
end;

type
  TForm4 = class(TForm) // Это твоя форма, на которой лежит панель
  // ...
  private
    { Private declarations }
    procedure ChildClick(Sender: TObject); // <--- Вот эту строку добавь
  public
    { Public declarations }
  end;
 
implementation
 
// ...
 
procedure TForm4.ChildClick(Sender: TObject);
var pt: TPoint;
begin
  GetCursorPos(pt);
  pt := (Sender as TControl).Parent.ScreenToClient(pt);
  Form4.Memo1.Lines.Text:=IntToStr(pt.x)+'_'+inttostr(pt.y);
end;
 
procedure TForm4.FormCreate(Sender: TObject);
var
  i,j:integer;
begin
  for i:=1 to 100 do
  for j:=1 to 100 do
  begin
  basement[i,j]:=chr(i+ord('0'));
  end;
 
  for i:=1 to 20 do
  for j:=1 to 20 do
  begin
  Field[i,j]:=TImage.Create(form4);
  field[i,j].Parent:=Form4.Panel2;
  field[i,j].Canvas.Brush.Color:=clRed;
  field[i,j].Canvas.Pen.Color:=clRed;
  Field[i,j].Top :=-25+25*i;
  Field[i,j].Left :=-25+25*j;
  Field[i,j].OnClick := ChildClick; // <--- И вот эту
  end;
  xpos:=20;
  ypos:=20;
  sidecordinit;
  setposition(xpos,ypos);
end;