In das OnMouseMove Event der Imagekomponente packst du folgendes:

Code: 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  
  Label1.Caption := IntToStr(X);
  Laber2.Caption := IntToStr(Y);

end;
Das sollte helfen. Falls du die falschen koordinaten bekommst (die des Bildschirmes, was ich aber kaum glaube) machst du folgendes:

Code: 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  
  Label1.Caption := IntToStr(X - Form1.Left - Image1.Left);
  Laber2.Caption := IntToStr(Y - Form1.Top - Image1.Top);

end;
Hoffe das hilft