[beZ_probleM]

вот рабочий код :

var s,s1:string;
    x,y,w,pos:integer;
begin
s:='cтрока текста любой длинной'; 
x:=0;  //координата Х куда выводить 
y:=0;  //             -/ Y /- 
w:=getWidth;    //шырина поля вывода
pos:=0;   //позицыя в тексте 
repeat 
s1:='';
while ((getStringWidth(s1)+10)<w) and (pos<=length(s)-1) do 
   begin 
     s1:=s1+GetChar(s,pos); 
     pos:=pos+1; 
   end; 
drawtext(s1,x,y); 
repaint;
y:=y+10;
until pos>=length(s)-1; 
delay(10000);
end.