Parsing

How to parse delimited text?

Easy:

var
  sl: TStringList;
begin
   try
     sl := TStringList.Create;
     sl.StrictDelimiter := True;
     sl.Delimiter := '
';<br />     sl.DelimitedText := 'ARR
3
5YX
CAPE FALSTER
0913
SIKOPTM
Koper
2009-02-28 01.00.00
E2
MSL
3';<br />     ShowMessage(sl.Text);<br />   finally<br />     FreeAndNil(sl);<br />   end;<br />end;</p>'