[esimon]

mucha gracias jhonny por tu informacion, no pude resolver con el codigo que me dige, pero si algo como esto

var
  Frm_GiftShop: TFrm_GiftShop;
  Fecha_soporte : Tdate;
  DD, MM, AA   : word;

procedure TFrm_GiftShop.Tbl_GiftShopFecha_RenovacionChange(Sender: TField);
begin
   // Fecha_Soporte := Tbl_GiftShopFecha_Renovacion.Value;
    DecodeDate(Fecha_Soporte, DD, MM, AA);
    AA := AA + 1;
    Tbl_GiftShopFecha_Pendiente_Renovacion.Value := Fecha_Soporte;
end;

pero resulta cuando instroduco la fecha en el campo fecha_renovacion, en la proxima fecha a renovar siempre sale la misma no se que estoy haciendo mal.