while (length(temps)>=23)and(Pos(' ',s)>0)do begin
    writeln(Copy(s,15,(Length(s)-15)));


   insert(#13#10         ,       s,             pos(' ',       Copy(s,15,(Length(s)-15)  )              )+15              );
   temps:=copy(s,     pos(' ',       Copy(s,15,(Length(s)-15)  )              )+15          ,Length(s)-          pos(' ',       Copy(s,15,(Length(s)-15)  )              )+16      );
                Delete(s,pos(' ',s),1);

   end;
  // Writeln('i''ve made ',s);
   tempy:=ly-maxheight div 2+2;
   while(pos (#13#10,s)>0)do begin
   bmp.Canvas.TextOut(lx-maxwidth div 2+2,tempy,Copy(s,1,Pos(#13#10,s)));
   inc(tempy,11);
   writeln(Copy(s,Pos(#13#10,s)+1,Length(s)-Pos(#13#10,s)));
   writeln(Pos(#13#10,s));
   s:=Copy(s,Pos(#13#10,s)+1,Length(s)-Pos(#13#10,s)+1);
    end;
   bmp.Canvas.TextOut(lx-maxwidth div 2+2,tempy,s);