[NumLock]

Сообщение от SCrat.ORS

прибавить положение Image

тогда уж:

Код:

procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p); // p:=Mouse.CursorPos;
  p:=Image1.ScreenToClient(p);
  Memo1.Lines.Add(Format('%d %d', [p.X, p.Y]))
end;