Процедура вставки записи в журнал

procedure TForm1.DBPlanner1ItemInsert(Sender: TObject; Position, FromSel,
  FromSelPrecise, ToSel, ToSelPrecise: Integer);
begin
  If DBPlanner1.Items.HasItem(FromSel,ToSel,Position) then
    begin
      ShowMessage('Указанное время занято!!!');
      Exit;
    end;
  bronUSmoney.FSP.Text:='';
  bronUSmoney.ComboBeg.Text:=IntToStr((60*Setting.Q_set['writeusbeg']+FromSelPrecise) div 60)+':'+copy(IntToStr((60*Setting.Q_set['writeusbeg']+FromSelPrecise) mod 60)+'0',1,2);
  bronUSmoney.Comboend.Text:=IntToStr((60*Setting.Q_set['writeusbeg']+ToSelPrecise) div 60)+':'+copy(IntToStr((60*Setting.Q_set['writeusbeg']+ToSelPrecise) mod 60)+'0',1,2);
  bronUSmoney.DNV.Date := DBDaySource1.Day;
  Q_bronus2.RecNo:=Position+1;

  bronUSmoney.ShowModal;
  Q_bronusl.Requery;
  DBPlanner1.Refresh;
end;

Процедура удаления записи из журнала

procedure TForm1.DBPlanner1ItemDelete(Sender: TObject; Item: TPlannerItem);
begin
  If Q_bronusl['run'] <> 0 then exit; // Если уже выполнено
  if MessageDlg('Удалить запись?',mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    exit;
  DBPlanner1.FreeItem(Item);
end;