Hab es jetzt so gemacht. Klappt wunderbar. Danke euch beiden.
Delphi-Quellcode:
procedure TMainFrm.SpielfeldMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label1.Caption := 'X: ' + IntToStr(x div 32) + ' | Y: ' + IntToStr(y div 32);
end;