Problema con maskedit

[*Caro*]

Hola lKinGl, puedes utilizar la función TryStrToDate.

Código Delphi [-]
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
var
 Fecha : TDateTime;
begin
 if key=#13 then
  begin
   if TryStrToDate(MaskEdit1.Text, Fecha) then
    //Hacemos los calculos
   else
    begin
     showmessage('Debe llenar bien la fecha');
     MaskEdit1.SetFocus;
    end;
  end;
end;