[mak-karpov]

А ты в какой версии Delphi компилил?

P.S. Вроде вот:

Код:

function process(s : string) : string;
var i,p : integer;
const
  cp1252 = 'àáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß';
  cp1251 = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
begin
  for i := 1 to length(s) do begin
    p := pos(s[i],cp1252);
    if p <> 0 then
      s[i] := cp1251[p];
  end;
  result := s;
end;