DM.IBQ_Publishing.SQL.Text := 'select max(id) from publishing';

  DM.IBQ_Spreaders.SQL.Text :='insert into spreaders(fio, adress, phone) values(:fio, :adress, :phone)';
  DM.IBQ_Spreaders.ParamByName('fio').AsInteger := DM.IBQ_Spreading.DataSource.DataSet.FieldByName('ID').AsInteger;
  DM.IBQ_Spreaders.ParamByName('adress').AsInteger := DM.IBQ_Publishing.DataSource.DataSet.FieldByName('ID').AsInteger;
  DM.IBQ_Spreaders.ParamByName('phone').AsInteger := StrToInt(Er_Phone.Text);
  DM.IBQ_Spreaders.ExecSQL;