Тащить объект по маршруту

[CoolNickname]

Так в этом и проблема не выходит зациклить движение к точке, если я пишу например так:

while not PosInRange(x,y,z,100) do
begin
MoveTo(x,y,z);
end;

Тут PosInRange() возвратит true, если чар находится меньше чем за 100 пойнтов от точки и false, если дальше чем 100 пойнтов.
То клиент и пх зависают.