Pasar una cadena (string) a una lista (tstringlisg) según delimitador

[[escafandra]]

Ejemplo visual con TMemo (puedes hacer lo mismo con un TStringList):

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= '+ EBML head'+#$D#$A+'|+ EBML version: 1'+#$D#$A+'|+ EBML read version: 1'+#$D#$A+'|+ EBML maximum ID length: 4'+#$D#$A;
end;

Saludos.