Rotina para substituir caracteres acentuados por não acentuados em delphi

Rotina para substituir caracteres acentuados por não acentuados
Use a seguinte função :

function RetiraAcentos(txt: String): String;
var
i: Integer;
begin
Result := txt;
for i := 0 to Length(Result) do
case Result[i] of
'á', 'à', 'â', 'ä', 'ã': Result[i] := 'a';
'Á', 'À', 'Â', 'Ä', 'Ã': Result[i] := 'A';
'é', 'è', 'ê', 'ë': Result[i] := 'e';
'É', 'È', 'Ê', 'Ë': Result[i] := 'E';
'í', 'ì', 'î', 'ï': Result[i] := 'i';
'Í', 'Ì', 'Î', 'Ï': Result[i] := 'I';
'ó', 'ò', 'ô', 'ö', 'õ': Result[i] := 'o';
'Ó', 'Ò', 'Ô', 'Ö', 'Õ': Result[i] := 'O';
'ú', 'ù', 'û', 'ü': Result[i] := 'u';
'Ú', 'Ù', 'Û', 'Ü': Result[i] := 'U';
'ç': Result[i] := 'c';
'Ç': Result[i] := 'C';
end;
end;