Como Remover Acentos de String e Char | Delphi

Função para remover acentos de string e char no Delphi

A função abaixo remove os acentos de uma string ou char.

function RemoveAcentos(Texto: String): String;
Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
 SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
var iFor : Integer;
begin
   for iFor := 1 to Length(Texto) do begin
      if Pos(Texto[iFor],ComAcento) <> 0 then begin
         Texto[iFor] := SemAcento[Pos(Texto[iFor],ComAcento)];
      end;
   end;
   Result := Texto;
end;

Como usar:

Edit1.Text := RemoveAcentos(Edit1.Text)