#pas
Replace(s, #13#10, #13);
gettok(s, #13);

#pas
lst.Text := s;
for i := 0 to lst.Count-1 do
  // lst.items[i] ...