function TfrmAT_DateBook.ReadDateBook: boolean;
var
  res: boolean;
  frmProgress: TfrmProgress;
begin
  result:= false;
  res:= false;
  Logger('********* Читаю ежедневник *****************');
  Logger('*** Получение параметров ежедневника');
  //
  res:= GetDateBookProps(xDateBookParam);

  if iDateBookType > 0 then Form1.spSkinMessage1.MessageDlg('Программа на данный момент не поддерживает тип вашего ежедневника.' + #13#10 +
                                                            'Возможен только просмотр данных.', mtError, [mbOk], 0);
  if res then begin
                if xDateBookEvents <> nil then xDateBookEvents:= nil;
                SetLength(xDateBookEvents, xDateBookParam.Count);
                Logger('*** Параметры ежедневника получены успешно');
                // построить listview
                CreateListView(iDateBookType);          
              end
         else Logger('*** Ошибка получения параметров ежедневника');     
  if res then
    begin
      frmProgress:= TfrmProgress.Create(Self);
      frmProgress.AdvProgressBar2.Visible:= false;
      frmProgress.AdvProgressBar1.Value:= 0;
      frmProgress.Show;
      frmProgress.Update;
      try
        Logger('*** Получение списка событий ***');
        res:= GetDateBookEntries(xDateBookEvents, frmProgress);
        if res then
          begin
            Logger('*** Заполнение таблицы ***');
            FillListDateBookEvents(spSkinListView1, xDateBookEvents);
          end;
        //FillTreeCategory(RzTreeView1, xCategory);
      finally
        frmProgress.Free;
      end;
    end;
  result:= res;  
end;