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 y := IntToStr(YearOf(Now)); y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
medt1.EditMask:='';
medt1.EditMask := '!99/99/' + y;
y := '1968'; 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