можно через жопу сделать
sl : TStringList;

sl = TStringList.Create();
sl.text := s;
s.lines.string[] будет тебе массив строк
s.lines.count - кол-во строк.