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;