Hola de nuevo.
Me había olvidado que el TEditMask permite caracteres literales...
![Embarrassment](http://www.clubdelphi.com/foros/images/smilies/redface.gif)
, así que podes hacerlo solamente con el componente MaskEdit:
Código Delphi
[-]
uses DateUtils;
procedure TForm1.FormCreate(Sender: TObject);
var
y : string;
begin
y := YearOf(Now).ToString; y := '\'+y[1]+'\'+y[2]+'\'+y[3]+'\'+y[4];
MaskEdit1.EditMask := '!99/99/' + y;
end;
Salida:
Saludos
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)