TStringList.LineBreak

procedure Test_LineBreak;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Gepard '+#$0D#$0A+ 'Loewe');
    TestObj.LineBreak := '%';
    if pos('%',TestObj.Text) < 0 then
      raise ('Test_LineBreak Error');
     else
    showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;