[NumLock]

смещение в пикселях по оси X:

Код:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    procedure Image1Click(Sender: TObject);

procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  Windows.ScreenToClient(Handle, p);
  Label1.Caption:=IntToStr(p.X-28-Image1.Left);
end;

28 - смещение начала координат внутри картинки