[AND_REY]

Так что ли:

Код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Const
 a = 20;
 b = 20;
begin
 ShowMessage('Ячейка = ['+IntToStr(X div a)+', '+IntToStr(Y div b)+']');
end;