Função que remove acentos de uma string em Delphi
function RemoveAcentos(Str:String): String;
Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’;
SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’;
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
Begin
if Pos(Str[x],ComAcento)<>0 Then
begin
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
end;
end;
Result := Str;
end;