Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

ANSI > ASCII

01.01.2007
{преобразование Ansi to Ascii}
 
function AnToAs(s: String) : String;
 
Var i,kod : Integer;
 
begin
 
Result:=s;
 
for i:=1 to length(s) do
 
begin
   kod
:=Ord(s[i]);
   
if  kod=13 then Result[i]:=' ';
   
if ( kod>=192) and ( kod=239) then
     
Result[i]:=Chr(kod-64);
   
if ( kod>=240) and ( kod=255) then
     
Result[i]:=Chr(kod-16);
   
if kod=168 then  Result[i]:=Chr(240);
   
if kod=184 then  Result[i]:=Chr(241);
 
end;
 
end;

Взято с https://delphiworld.narod.ru