GOAR, поставь минимальный Delay, 10 мс мож 1

vl@volk, вот что происходит

GOAR, какой еще cls? где код этой процедуры?

Витаминыч, код cls такой:

pricedure cls;
begin
  setcolor(0,0,0);
  fillrect(0,0,getwidth,getheight);
end;

procedure game;
begin

repeat
// code..

repaint;
delay(10);
cls;
until false;
end;

Так как то, и при условии delay(10) мерцает.
  но только в андроид сборке.

В жабе и без delay работает.
Помню в басик идэ такое ж было..

vl@volk, тож самое

GOAR, скорее всего особенности библиотеки для отрисовки,гг

Красивая игрушка для проверки на эпилепсию. А ты перерисовываешь каждый раз когда рисуешь один квадратик?) Вообще надо как бы

очистить экран
нарисовать всё что должно быть нарисовано
вызвать репейнт
сделать маленькую паузу
и так по кругу

возможно тебе cls не нужен

https://www.kansoftware.ru/?tid=5122

vl@volk, ну саму процедуру сls можно не ставить.
Можно просто закражишать экран , филлрэкт тип.
Но эффект то же

vl@volk, а без если, то мазать будет все