Código Delphi [-] StringReplace ( CadenaLeida, chr(39), '-', [ rfReplaceAll]);
StringReplace ( CadenaLeida, chr(39), '-', [ rfReplaceAll]);