Фон&движение, проблем... Опции

[suriv]

короче:
я сделал "фон" я хочу сделать движение на "переднем плане" т.е чтоб фон не стирался.
cleardevice пробовал слишком медленно...
вот код:

uses crt,graph;
var
gd,gm,i,j,l:integer;
o:byte;
s:string;
begin
 randomize;
 gd:=detect;
 initgraph(gd,gm,'');
 setcolor(green);
 for j:=1 to getmaxy do
 begin
  j:=j+10;
  for  i:=1 to getmaxx do
   begin
    o:=random(256);
    i:=i+10;
    outtextxy(i,j,chr(o));
   end;
  end;
 readln;
end.

вот на нем мне надо сделать движение но чтоб фон остался.

[Shura]

Может потому что графический режим не закрываешь? (CloseGraph)