TStringList.Delimiter

procedure Test_Delimiter;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Igel');
    TestObj.Add('Rabe');
    TestObj.Add('Schlange');
    TestObj.Delimiter := '#';
    if (pos('#',TestObj.DelimitedText) < 0) then
      raise ('Test_Delimiter Fehler');
    else
    showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;