Hola de nuevo.
Me había olvidado que el TEditMask permite caracteres literales...
, 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