[Frank]

repeat 
  .....
  i := FormAddString(sValue+chr(10));
until некое условие;