Remove acentuação de uma string

Exemplo:
//
cGet := "Configurações"
cSemAcento := NoAcento(AnsiToOem(AllTrim(cGet))), 
MsgInfo(cSemAcento))
//Retorno: Configuracoes