[ViNT]

Можно так:

program test;
var
a:integer;
x:integer;
begin
for a:=1 to 10 do
begin
x:=x+getstringwidth(integertostring(a))+2;
drawText(''+a,x, 0);
repaint;
delay(1000); 
end;
end.