Перемещение курсора мыши

[UNREALcv]

Доброго времени суток!

Стоит такая вот задача - запрограммировать траекторию перемещения курсора мыши по прямоугольникам, размер которых увеличивается до размера экрана.

Заранее спасибо за помощь!

[UNREALcv]

Написал уже такое:

procedure TForm1.Button1Click(Sender: TObject);
var
n,i, k: longint;
r: TRect;
pr: PRect;

begin
 i := 0;

  for i := 0 to 500 do
  begin
    Application.ProcessMessages;

n:=0;

r.Left := 400-n;
r.Top := 400-n;
r.Right := Screen.Width - (400-n);
r.Bottom := Screen.Height - (400-n);
pr := @r;
ClipCursor(pr);
k:=0;
  repeat
    setcursorpos(r.Right-n,400);
    sleep(100);
n:=n+10
  until false;

end;
end;

end.

подскажите как раделить циклы ClipCursor и setcursorpos и заставить двигаться курсор по периметру "ClipCursor".