var
   SLista: TStringList;
   Arrangement: array of String;
   Index: Integer;
   text: string;

     SLista: = TStringList.Create;
     Text: = 'hi' + sLineBreak + 'world' + sLineBreak + 'yeah' + sLineBreak
       + 'Yeah';

     SLista.Delimiter: = sLineBreak;
     SLista.DelimitedText: = text;

     SetLength (Arrangement SLista.Count);
     for index: = 0 to Pred (SLista.Count) do
       Writeln (SLista [index]);