Maskedit parcial

[[José Luis Garcí]]

Acabo de probarlo, y con pequeñas modificaciones así es como he dejado el código

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  y : string;
begin                    //add dateUtils
  y := IntToStr(YearOf(Now)); // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  medt1.EditMask:='';
  medt1.EditMask   := '!99/99/' + y;
  y := '1968'; // o el año que elijas ej.: '1975'
  y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
  medt2.EditMask:='';
  medt2.EditMask :='!99/99/' + y;
end;

procedure TForm1.medt1Exit(Sender: TObject);
begin
  try
     StrToDate(TMaskEdit(Sender).Text)
  except on E: Exception do
     begin
       ShowMessage('Error: fecha no valida');
       TMaskEdit(Sender).SetFocus;
     end;
  end;
end;

Gracias, funciona perfectamente, es lo que quería