J'ai codé ça rapidement en FMX sous Delphi Berlin et ça fonctionne.
Alors, pourquoi ne pas en faire profiter la communauté ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
function NoAccent(const Source: string): string;
var
 K: TArray<Byte>;
begin
  K := TEncoding.Convert(TEncoding.Unicode, TEncoding.ASCII, TEncoding.Unicode.GetBytes(Source));
  Result := StringOf(K);
end;
 
procedure TForm24.Button1Click(Sender: TObject);
begin
  ShowMessage(NoAccent('Éùéèàçùâêûî'));
end;
Résultat

---------------------------
Project5
---------------------------
Eueeacuaeui
---------------------------
OK
---------------------------