MouseMove reagiert sehr schlecht!! Gibs da was besseres??

[ISAS]

Delphi-Quellcode:

procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Y=100 then showmessage('hallo');
end;

Wenn ich nun ganz schnell die maus auf dem ganzen Bildschirm auf- und abbeweg, dann kommt die Meldung nicht. Erst wenn ich ganz langsam drüber fahr bzw langsamer. Was soll ich da machen??