Вычисляемые поля

var Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
if TableSpeOdeSrok_Sluzhbi.Value=3 then
Month:=3;
if TableSpeOdeSrok_Sluzhbi.Value=12 then
Month:=12;
if TableSpeOdeSrok_Sluzhbi.Value=6 then
Month:=6;
TableSpeOdeSrok_Zameni.Value:=TableSpeOdeData_Vidachi.Value+Month;
end;

var Year, Month, Day: Word;
T, D:TDateTime;
Y, M:Word;
begin
Y:=0;
M:=0;
if ((DBEdit4.Text='') or (DBEdit5.Text='') or (DBEdit6.Text='')) then
MessageDlg('Вы не заполнили все поля', mtWarning,[mbOK],0)
else
  begin
    TableSpeOde.FieldByName('Data_Vidachi').AsDateTime:=DateTimePicker1.DateTime;
    T:=TableSpeOdeData_Vidachi.AsDateTime;
    DecodeDate(T, Year, Month, Day);
    if TableSpeOdeSrok_Sluzhbi.Value=3 then
      M:=3;
    if TableSpeOdeSrok_Sluzhbi.Value=12 then
      Y:=1;
    if TableSpeOdeSrok_Sluzhbi.Value=6 then
      M:=6;
    if TableSpeOdeSrok_Sluzhbi.Value=24 then
      Y:=2;
    if TableSpeOdeSrok_Sluzhbi.Value=30 then
      begin
        M:=6;
        Y:=2;
      end;
    Month:=M+Month;
    Year:=Y+Year;
    if Month>12 then
      begin
        Y:=1;
        Month:=Month-12;
        Year:=Y+Year;
      end;
    D:=EncodeDate(Year,Month,Day);
    TableSpeOdeSrok_Zameni.Value:=D;
    TableSpeOde.Append;;
    GroupBox1.Visible:=False;
  end;
end;

TableSpeOdeSrok_Zameni.Value := IncMonth(TableSpeOdeData_Vidachi.AsDateTime, TableSpeOdeSrok_Sluzhbi.Value);