Como dividir um string delimitada em um array de TStringList

Pessoal,
segue um exemplo de como dividir um string delimitada por '!' em um array de TStringLists..


program exampleTStringList;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.Classes;

var
  lStringList: TStringList;
  li:integer;
begin
  try
    lStringList := TStringList.Create;
    lStringList.Delimiter := '!';
    lStringList.DelimitedText := 'Newton!DUG!RS!Delphi!';

    for li := 0 to (lStringList.Count-1) do
      Writeln(lStringList[li]);

    Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.