[gsilvei]

Resolvido a la fuerza bruta.

Código Delphi [-]
var    Data : tdatetime;

  if P_FINVIGENCIA.Enabled = False then
    begin
     Data := P_INIVIGENCIA.Value; 
     Data := IncMonth(Data,12);
     P_FINVIGENCIA.Value:= Data;
    end
    else
    if P_FINVIGENCIA.Enabled = True then
    Data := P_FINVIGENCIA.Value;