procedure TfrmAT_DateBook.AddDateBook;
var
  idx: integer;
begin
  if not Form1.IsATConnected then exit;
  if iDateBookType > 0
    then
    begin

      idx:= Form1.spSkinMessage1.MessageDlg('Программа на данный момент не поддерживает тип вашего ежедневника.' + #13#10 +
                                            'Возможен только просмотр данных.', mtError, [mbYes, mbNo], 0);
      exit;                                      
    end
  else idx:= mrYes;
  if idx = mrYes then
  begin
  //if xDateBookEvents = nil then GetRefreshDateBook;
  frmDateBookEventProps:= TfrmDateBookEventProps.Create(Self);
  frmDateBookEventPropsEx:= TfrmDateBookEventPropsEx.Create(Self);  
  try
    idx:= EditEvent(0, xDateBookEvents);
    case iDateBookType of
      0 : begin
            frmDateBookEventProps.ShowModal;
            if frmDateBookEventProps.ModalResult = mrOk then WriteEventChanges(idx, xDateBookEvents);
          end;
      1 : begin
            frmDateBookEventPropsEx.ShowModal;
            if frmDateBookEventPropsEx.ModalResult = mrOk then WriteEventChanges2(idx, xDateBookEvents);
          end;
    end;
  finally
    frmDateBookEventProps.Free;
    frmDateBookEventPropsEx.Free;    
  end;
  end;
end;