Новый вариант)) отличаетсо лишь тем шо строка на вывод формируетсо путём добавления посимвольно)
s:=текст для вывода;
x:=0; //координата Х куда выводить
y:=0; // -/ Y /-
w:=ширина экрана(getWidth) или шырина региона куда выводить текст(в пикселях);
pos:=0; //позицыя в тексте
repeat
while ((getStringWidth(s1)+5)<w) and (pos<=length(s)-1) do
begin
s1:=s1+copy(s,pos,pos);
pos:=pos+1;
end;
y:=y+10; // число 10 ростояние между верхней линеей одного рядка и верхней линией второго рядка
drawtext(s1,x,y);
until pos=length(s)-1;