Procedure de máscara data para edits em Delphi feita no Delphi XE8. Para usar adicione este procedure no OnKeyPress do edit, ao digitar o edit aceitará apenas numeros e irá checar no final se a data digitada é válida, caso contrário ele emite um alerta de erro e retorna o edit a posição inicial.