Модуль: SysUtils

Описание
Функция приводит строку S к форме цитаты, добавляя в начало и конец строки символ кавычки и заменяя все непарные символы кавычки внутри строки на парные. В параметре Quote указывается какой символ будет использован в качестве кавычки. Функция поддерживает многобайтовые наборы символов (MBCS).

Пример
var
   S: string;
begin
   S:= '1997-1998гг.';
   S:= AnsiQuotedStr(S, '-');     // S := '-1997--1998гг.-'
   MessageDlg(S, mtInformation, [mbOk], 0);
end;