TStringList.QuoteChar

procedure Test_QuoteChar;
var
  TestObj : TStringList;
begin
  TestObj := TStringList.Create;
  try
    TestObj.Add('Igel');
    TestObj.Add('Rabe');
    TestObj.Add('Schlange');
    TestObj.QuoteChar := '"';
    if pos('"',TestObj.DelimitedText) < 0 
      then raise ('Test_QuoteChar Error')
      else showmessage(TestObj.DelimitedText);
  finally
    TestObj.free;
  end;
end;