ANSI в ASCII

{ преобразование 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;

Source: http://delphiworld.narod.ru
ID: 04263