Строковые константы Delphi XE2 AnsiFormat () и ANSI

Есть ли удобная функция Format (), которая работает только со строками Ansi? Потому что каждый раз, когда я использую AnsiString с Format (), я получаю предупреждение. И нет, я не хочу, чтобы Delphi преобразовывала мои строки AnsiStrings туда и обратно между строками Wide и Ansi. Это просто ужасно замедляет работу. Кроме того, есть ли способ заставить строковую константу быть Ansi? проверьте это

function SomeStrFunc(S: AnsiString): AnsiString; overload;
function SomeStrFunc(S: String): String; overload;

, а затем, когда я использую SomeStrFunc ('ABC'), он вызовет версию с широкой строкой. Что, если я хочу использовать версию Ansi и заставить Delphi хранить константу ABC в AnsiChars.