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.