Hola José Luís.
Si entendí bién, se me ocurre que podrías usar un MaskEdit para el día y el mes y pegado a él, un Edit donde previamente situarias el año. Algo así:
Código Delphi
[-]
uses DateUtils;
procedure TForm1.FormCreate(Sender: TObject);
begin
MaskEdit1.BorderStyle := bsNone;
MaskEdit1.EditMask := '00/00/;1;_';
Edit1.BorderStyle := bsNone;
Edit1.Text := YearOf(Now).ToString;
Edit1.ReadOnly := True;
Edit1.TabStop := False;
end;
Quedando de este modo:
Saludos