mousemove

Hi,

I need a function for detect if the mouse is moving in a loop,
 something like this:

begin
repeat
...
until mousemove;
end;

I am programming in TPW 1.5.
thanks.