Анимация без мерцания

uses GraphABC, ABCObjects;
var
  //ob:ObjectABC;
  intro := new PictureABC(-560,-60,'ava.png');
  mode:boolean;
  inkey:array[VK_Left..VK_Down] of real;
  angle:=0;
  treesx:array[0..256] of integer;
  treesy:array[0..256] of integer;
  trees:array[0..256] of ObjectABC;
  x,y:real;
  redr, inf:boolean;
  
label a;
 
procedure cash;
begin
  x := sin(angle / 180 * 3.14);
  y := 0-cos(angle / 180 * 3.14);
  x := round(x) * 0.01;
  y := round(y) * 0.01;
end;
 
procedure keydwn(key:integer);
begin
case key of
  VK_Down: inkey[key]:=1;
  VK_Left: inkey[key]:=1;
  VK_Up: inkey[key]:=1;
  VK_Right: inkey[key]:=1;
  VK_Tab: inf:=true;
end;
case key of
  VK_Space: if mode then mode := false else mode := true;
end
end;
 
procedure keyup(key:integer);
begin
case key of
  VK_Down: inkey[key] := 0;
  VK_Left: inkey[key] := 0;
  VK_Up: inkey[key] := 0;
  VK_Right: inkey[key] := 0;
  VK_Tab: inf:=false;
end;
end;
 
begin
onkeydown:=keydwn;
onkeyup:=keyup;
mode:=true;
intro.ScaleX := 2.5;
intro.Scaley := 2.5;
window.IsFixedSize := true;
sleep(100);
a:
clearWindow();
 
for var i:=0 to 256 do
begin
  treesx[i]:=random(window.Width);
  treesy[i]:=random(window.Height);
end;
lockdrawing;
coordinate.Origin:=window.Center;
redraw;
 
while mode do
begin
  for var i:= 0 to 256 do
  begin
  if redr then trees[i]:= new CircleABC(treesx[i],treesy[i], 10, color.Green);
  end;
  if inf then new TextABC(0,0,10,treesx[1]+', '+treesy[1]+', '+angle,Color.Black);
  if inkey[VK_Left]=1 then
  begin
  angle-=5;
  redraw;
  redr:=true;
  end;
  if inkey[VK_Right]=1 then
  begin
  angle+=5;
  redraw;
  redr:=true;
  end;
  if inkey[VK_Up]=1 then
  begin
  cash;
  for var i:= 0 to 256 do
  begin
  treesx[i]-=round(x*360);
  treesy[i]-=round(y*360);
  end;
  redraw;
  end;
  if min(angle, 360) = 360 then angle-=360;
  if max(angle, 0) = 0 then angle+=360;
  coordinate.Angle:=360-angle;
  sleep(2);
end;
end.

uses GraphABC, System.Drawing;
 
begin
// Колдуем изображение;
var bm:Bitmap:= new Bitmap(80, 60);
var gr:Graphics:= Graphics.FromImage(bm);
gr.CopyFromScreen(0, 0, 0, 0, bm.Size);
 
LockDrawing; // это чтобы было без мерцания.
for var y:= 0 to window.Height-60 do begin 
    ClearWindow();
    GraphBufferGraphics.DrawImage(bm,100,y);
    redraw;sleep(1) end;
end.

uses GraphABC, ABCObjects;
var
  //ob:ObjectABC; // Сейчас не использую
  intro := new PictureABC(-560,-60,'ava.png'); // Заставка в начале
  mode:boolean; // Режим (игра/останов)
  inkey:array[VK_Left..VK_Down] of real; // Массив нажатых (но не входящих как procedure keydown)
  angle:=0; // Угол камеры, точнее мира который вращается вокруг
  treesx:array[0..256] of integer; // Два массива поз. деревьев отдельно
  treesy:array[0..256] of integer;
  trees:array[0..256] of ObjectABC; // Сами деревья
  x,y:real; // Поз. камеры
  redr, inf:boolean; // Редрав и информация о углу и х/у не оптимизировано
  
label a; // Возвращение после паузы
 
procedure cash; // Перегруженная подпрограмма
begin
  x := sin(angle / 180 * 3.14); // На угол 180 икс идёт полностью
  y := 0-cos(angle / 180 * 3.14); // На угол 0 игрек идёт полностью и так осуществляется хождение по карте
  x := round(x) * 0.01; // Ограничение ходьбы
  y := round(y) * 0.01;
end;
 
procedure keydwn(key:integer);
begin
case key of
  VK_Down: inkey[key]:=1; // Нажатые клавиши дают о себе знать
  VK_Left: inkey[key]:=1;
  VK_Up: inkey[key]:=1;
  VK_Right: inkey[key]:=1;
  VK_Tab: inf:=true;
end;
case key of
  VK_Space: if mode then mode := false else mode := true; // Пауза от пробела (не проработано)
end
end;
 
procedure keyup(key:integer);
begin
case key of
  VK_Down: inkey[key] := 0; // Отмена клавиш которые отжаты
  VK_Left: inkey[key] := 0;
  VK_Up: inkey[key] := 0;
  VK_Right: inkey[key] := 0;
  VK_Tab: inf:=false;
end;
end;
 
begin
onkeydown:=keydwn; // сами понимаете
onkeyup:=keyup;
mode:=true;
intro.ScaleX := 2.5;
intro.Scaley := 2.5;
window.IsFixedSize := true;
sleep(100);
a: // Фишка А
clearWindow();
 
for var i:=0 to 256 do
begin
  treesx[i]:=random(window.Width); // Случайный генер ландшафта (как на альфа пробную версию)
  treesy[i]:=random(window.Height);
end;
lockdrawing;
coordinate.Origin:=window.Center; // Координатный центр = центр окна
redraw;
 
while mode do // Цикл идёт до тех пор пока режим включен
begin
  for var i:= 0 to 256 do // Перерисовка
  begin
  if redr then trees[i]:= new CircleABC(treesx[i],treesy[i], 10, color.Green);
  end;
  if inf then new TextABC(0,0,10,treesx[1]+', '+treesy[1]+', '+angle,Color.Black); // Тот же inf
  if inkey[VK_Left]=1 then // Если нужная клавиша нажата
  begin
  angle-=5; // поворот и редрав
  redraw;
  redr:=true;
  end;
  if inkey[VK_Right]=1 then
  begin
  angle+=5;
  redraw;
  redr:=true;
  end;
  if inkey[VK_Up]=1 then
  begin
  cash;
  for var i:= 0 to 256 do
  begin
  treesx[i]-=round(x*360); // Нужные действия при перемещении земли
  treesy[i]-=round(y*360);
  end;
  redraw;
  end;
  if min(angle, 360) = 360 then angle-=360; // При выходе за границы транспортира изменяет число если оно больше 360
  if max(angle, 0) = 0 then angle+=360;      // и меньше нуля. На ход игры не влияет, но может убрать неизвестные мне баги
  coordinate.Angle:=360-angle; // Это оживление переменной, а 360 не знаю, списал с free basic
  sleep(2); задержка
end;
end.