procedure TForm1.btnAT_DateBookRefreshClick(Sender: TObject);
begin
  if frmAT_DateBook.ReadDateBook then
    begin
      btnAT_DateBookEdit.Enabled:= true;
      btnAT_DateBookAdd.Enabled:= true;
      btnAT_DateBookDelete.Enabled:= true;
      btnAT_DateBookBackup.Enabled:= true;
      btnAT_DateBookRestore.Enabled:= true;                  
    end;
end;