1. program Project29;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils, Classes;
  7.  
  8. var L: TStringList;
  9.     aLine: string;
  10. begin
  11.   L := TStringList.Create;
  12.   try
  13.     L.StrictDelimiter := True;
  14.     L.CommaText := '1997, Ford, E350,"Super, '#10#13'luxurious truck",Field,Field';
  15.     for aLine in L do
  16.       WriteLn('->', aLine);
  17.   finally L.Free;
  18.   end;
  19.  
  20.   WriteLn;
  21.   WriteLn('Press ENTER to exit');
  22.   ReadLn;
  23. end.
  24.  
  25. // Output looks like this:
  26.  
  27. // ->1997
  28. // -> Ford
  29. // -> E350
  30. // ->Super,
  31. // luxurious truck
  32. // ->Field
  33. // ->Field
  34. //
  35. // Press ENTER to exit