Funcao - remover acentos

function TiraAcentos(const Texto: ANSIString): ANSIString;

const

  Acentos   = 'áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜãõÃÕâêîôûÂÊÎÔÛçÇñÑ';

  Normais   = 'aeiouAEIOUaeiouAEIOUaeiouAEIOUaoAOaeiouAEIOUcCnN';

var

  a: Integer;

begin

  Result := '';

  for a := 1 to Length(Texto) do

    if Pos(Texto[a], Acentos) > 0 then 

      Result := Result + Normais[Pos(Texto[a], Acentos)]

    else                               

      Result := Result + Texto[a];

end;