Código Delphi [-] ShowMessage(FormatMaskText('999-99-\0\0-\0\0;0', '70001'));
ShowMessage(FormatMaskText('999-99-\0\0-\0\0;0', '70001'));