Validar Fecha

[[egostar]]

Hola Gustavo

Si es obligado usar el TEditMask puedes usar esta rutina, aunque se complica porque debes de identificar si el mes es de 28, 29, 30 o 31 dias.

Código Delphi [-]
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
  If (copy(MaskEdit1.Text,1,2) < '00') or
     (copy(MaskEdit1.Text,1,2) > '31') then begin
     showmessage('Dia mal capturado');
  end;
  If (copy(MaskEdit1.Text,4,2) < '00') or
     (copy(MaskEdit1.Text,4,2) > '12') then begin
     showmessage('Mes mal capturado');
  end;
end;

Yo te sugiero que mejor uses un TDateTimePicker y te olvidas de las validaciones.

Saludos

PD. Edite el mensaje porque no me puso bien el codigo, algun error en el resaltador de sintaxis delphi.