Независимое перемещение предметов в паскале Опции

[Slave]

Суть в том что есть три квадрата на экране, которые перемещаются по прямым с разными скоростями. Вопрос в следующем: как совместить одновременно перемещение трех предметов?? Как я понимаю перемещение одного предмета будет производиться с помощью delay, но если поставить цикл для трех квадратов, то сначала переместиться первый потом второй, потом третий.
Как быть??

[volvo]

Вот набросок:

uses crt, graph;
const
  size = 50;

var
  d, m: integer;
  x, y, v: array[1 .. 3] of integer;
  i: integer;

begin
  initgraph(d, m, '');

  for i := 1 to 3 do begin
    x[i] := 0; y[i] := (i - 1)*(10 + size);
    v[i] := random(12); { <--- скорость задается случайно? Случайно... }
  end;


  repeat

    cleardevice;
    for i := 1 to 3 do begin
      rectangle(x[i], y[i], x[i]+size, y[i] + size);
      x[i] := x[i] + v[i]; { квадраты движутся с разными скоростями? с разными... }
    end;
    delay(50);

  until keypressed;
  closegraph;

end.