Ханойские башни

[Vistar]

Мне нужно решить задачу о ханойских баштах в графическом режиме. Я пока что написал только в тексттовом режиме:

program hanoi;
uses crt;
var n,rep:integer;

procedure move(n,source,aim,temp:byte);
begin
     if n=1 then
     writeln ('disk 1 so sterzhnya ',source,' na sterzhen ', aim )
     else begin
          move (n-1,source,temp,aim);
          writeln ('disk ',n,' so sterzhnya ', source,' na sterzhen ',aim);
          move (n-1,temp,aim,source);
          end;

     end;
BEGIN clrscr;
      writeln ('Hanoyskaya bashnya');
      repeat writeln ('skolko diskov?');
             readln(n);
             move (n,1,3,2);
             writeln ('prodolzhut (1-da, 0-net)');
             read(rep);
             until rep=0;
END.

Как организовать перемещение блоков в графическом режиме? Нужно чтобы они двигались при перемещении, а не сразу отображались на другом стержне. Заранее спасибо.

[_Dmitry]

Было уже http://www.programmersforum.ru/showthread.php?t=14318
См. пример, пост #10.

[Vistar]

но ведь там ничего нету о том как перемещать блоки на паскале
Вот что то типа этого нужно сделать