В общем, вот чего изобрёл:
program test;
var
a:integer;
begin
for a:=1 to 10 do
begin
setColor(0,0,0);
drawText(''+a,0, 0);
repaint;
delay(1000);
{MyRepaint}
setColor(255,255,255);
fillRect(0,0,getWidth,getHeight);
end;
end.
Всем спасибо за внимание!