Hallo Christian,
vielleicht verstehe ich ja nicht so richtig, aber hast du das schon ausprobiert?
Delphi-Quellcode:
procedure TDemoForm.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Caption := Format('X %d Y %d', [X, Y]);
end;
Grüße vom marabu