Wie kann ein Zeichen Spiralförmig am Bildschirm laufen?

[Sofa5000]

Delphi-Quellcode:

begin
     x:=-1;
     y:=1;
     repeat
           y:=y+f;
           for i:=1 to 80-f do begin
               clrscr;
               x:=x+1;                                            
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           x:=x-f;
           for i:=1 to 25-f do begin
               clrscr;
               y:=y+1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           y:=25;
           y:=y-f;
           for i:=1 to 80-f do begin
               clrscr;
               x:=x-1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           x:=1;
           x:=x+f;
           for i:=1 to 25-f do begin
               clrscr;
               y:=y-1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           f:=f+1;
           x:=-1;
           y:=1;
     until (f=13);
     donewincrt;
end.

Ich habe das jetzt so! Das geht schon fast! Es ist nur wenn ich es ausführe springt er immer zu den Eckpunkten und dann erst dorthin wo er hin soll!