procedure TfrmAT_DateBook.DeleteDateBook;
var
  frmProgress: TfrmProgress;
  idx: integer;
begin
  if spSkinListView1.SelCount <= 0 then exit;
  if iDateBookType > 0
    then
    begin

      idx:= Form1.spSkinMessage1.MessageDlg('Программа на данный момент не поддерживает тип вашего ежедневника.' + #13#10 +
                                            'Возможен только просмотр данных.' + #13#10 +
                                            'Продолжить удаление?', mtError, [mbYes, mbNo], 0);
      //exit;                                      
    end
  else idx:= mrYes;
  if idx = mrYes then
  begin
  
  if Form1.spSkinMessage1.MessageDlg(at_db_pw_text03, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then exit; //pw_text03
  frmProgress:= TfrmProgress.Create(Self);
  frmProgress.AdvProgressBar2.Visible:= false;
  frmProgress.AdvProgressBar1.Value:= 0;
  frmProgress.AdvProgressBar1.MaxValue:= spSkinListView1.SelCount;
  frmProgress.Show;
  frmProgress.Update;
  try
    DeleteDateBookEntry(spSkinListView1, xDateBookParam, xDateBookEvents, frmProgress);
  finally
    frmProgress.Free;
  end;
  end;
end;