Fórum formatar cpf e cgc no mesmo edit #150808

Tenho as funçoes:

Function FormataCPF(CPF : string): string;
begin
Result:= Copy(CPF,1,3) + ´.´ + Copy(CPF,4,3) + ´.´ + Copy(CPF,7,3) + ´-´ + Copy(CPF,10,2);
end;

Function FormataCGC(CGC : string): string;
begin
result:= Copy(CGC,1,2) + ´.´ + Copy(CGC,3,3) + ´.´ + Copy(CGC,6,3) + ´/´ + Copy(CGC,9,4) + ´-´ + Copy(CGC,13,2);
end;

Quero que no onexit do memo Edit ele formate se for cpf ou cgc

[]´s

agradeço a ajuda

Favor postar o título em minúsculas , conforme as regras de conduta
Obrigado
Moderador