Lala, sorry
Es lag daran das die Koordinaten nicht auf Fenster umgerechnet waren.
Jetzt geht es:
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If SpriteEngine.GetSpriteAt(X, Y) is TMySprite then
begin
showmessage('oops');
end;
end;