anchor.diff:  begin
    if (GetFunctions.CanClose() <> ci_yes) then
     begin
  -   // disallow Windows from shutting down
  -//   ShutdownBlockReasonDestroy(Application.MainForm.Handle);
  -//   ShutdownBlockReasonCreate(Application.MainForm.Handle, 'hJOPserver není odpojen od systémů');
      Msg.Result := 0;
    end else begin
  -//   ShutdownBlockReasonDestroy(Application.MainForm.Handle);
      Msg.Result := 1;
      CloseMessage := false;
      NUZClose     := true;
  
positive.code:   Pozice := LV_Bloky.ItemIndex;
  
    Beep;
    if Application.MessageBox(PChar('Opravdu chcete smazazat blok '+Blky.GetBlkIndexName(pozice)+'?'),'Mazání bloku', MB_YESNO OR MB_ICONQUESTION OR MB_DEFBUTTON2) = mrYes then
     begin
      try
        Blky.Delete(pozice);
  
negative.code:     err := 'neznámá chyba';
     end;
  
     Application.MessageBox(PChar('Chyba při otevírání komunikace s centrálou: chyba '+IntToStr(return)+#13#10+err),'Chyba',MB_OK OR MB_ICONERROR);
  
     F_Main.A_Trk_Connect.Enabled          := true;
     F_Main.SB1.Panels.Items[_SB_INT].Text := 'Odpojeno';
  