[ecfisa]

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