Em muitas ocasiões precisamos formatar (Adicionar mascara em strings) eu havia criado uma função para isso, mas recentemente encontrei uma função já existente no Delphi, basta inserir na uses a UNIT MaskUtils ou System.MaskUtils dependendo a versão do Delphi e para formatar use
CPF: FormatMaskText('000\.000\.000\-00;0;', '11111111111')
CNPJ: FormatMaskText('00\.000\.000\/0000\-00;0;', '11111111111111')
Se quiser formatar outros tipos de dados basta mudar o formato da mascara para o formato desejado,
no local onde informei '1111111111' você irá inserir a string que deseja formatar..
Espero ter ajudado... abs
