Código Delphi [-]StringReplace(mn.Items[nIdx].Caption, '&', '', [])
StringReplace(mn.Items[nIdx].Caption, '&', '', [])