Delphi的QuotedStr函数是用于在字符串两侧添加引号的函数，可以声明如下：
function QuotedStr(const S: string): string;
其中，`const S: string`是传入的字符串参数，返回值为添加引号后的字符串。
使用示例：
varstr: string; begin
str := QuotedStr('Hello World'); // 将字符串'Hello World'添加引号
ShowMessage(str); // 显示结果为：'Hello World' end;
