Если я тебя правильно понял, то можно хоть весь экран
закрасить случайными спрайтами. Например так:
Program GS1;
Uses arcade;
Var dr: array[0..4] of integer;
i, j, a, dx, dy: integer;
Begin
dr[0]:=0; dr[1]:=5; dr[2]:=3; dr[3]:=6;
AddSprite(LoadImage('/car.png'), 40, 40);
for j:=0 to 4 do
for i:=0 to 4 do
begin
a:=Random(4);
TransformSprite(0, dr[a]);
SpritePosition(0, dx + 40*i, dy + 40*j);
DrawSprite(0);
end;
Repaint;
Delay(5000);
End.