Fórum Impressao em ASCII #223753

function RetiraAcento(Texto: string): string;
var
  i: integer;
begin
  for i := 1 to Length(Texto) do
    case Texto[i] of
      ´Á´, ´À´, ´Â´, ´Ã´, ´Ä´, ´Å´ : Texto[i] := ´A´;
      ´É´, ´È´, ´Ê´, ´Ë´           : Texto[i] := ´E´;
      ´Í´, ´Ì´, ´Î´, ´Ï´           : Texto[i] := ´I´;
      ´Ó´, ´Ò´, ´Ô´, ´Õ´, ´Ö´      : Texto[i] := ´O´;
      ´Ú´, ´Ù´, ´Û´, ´Ü´           : Texto[i] := ´U´;
      ´Ý´                          : Texto[i] := ´Y´;
      ´Ñ´                          : Texto[i] := ´N´;
      ´Ç´                          : Texto[i] := ´C´;
      ´á´, ´à´, ´â´, ´ã´, ´ä´, ´å´, ´ª´ : Texto[i] := ´a´;
      ´é´, ´è´, ´ê´, ´ë´                : Texto[i] := ´e´;
      ´í´, ´ì´, ´î´, ´ï´                : Texto[i] := ´i´;
      ´ó´, ´ò´, ´ô´, ´õ´, ´ö´, ´º´, ´°´ : Texto[i] := ´o´;
      ´ú´, ´ù´, ´û´, ´ü´                : Texto[i] := ´u´;
      ´ý´, ´ÿ´                          : Texto[i] := ´y´;
      ´ñ´                               : Texto[i] := ´n´;
    end;
  Result := Texto;
end;