anchor.diff:    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
  +  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);
  
positive.code: begin
   Pozice := LV_Zesilovace.ItemIndex;
   Beep;
   if Application.MessageBox(PChar('Opravdu chcete smazat zesilovac '+Boosters.sorted[Pozice].name+'?'),'Mazání zesilovace', MB_YESNO OR MB_ICONQUESTION OR MB_DEFBUTTON2) = mrYes then
    begin
     Boosters.Remove(Boosters.sorted[Pozice].id);
     LV_Zesilovace.Items.Delete(Pozice);
  
negative.code: begin
   Self.B_Set_LI_Addr.Enabled := true;
   Self.SE_LI_Addr.Enabled := true;
   Application.MessageBox('Adresa LI nastavena, aktuální adresa je zobrazena v políčku "Adresa LI".',
                          'Ok', MB_OK OR MB_ICONINFORMATION);
  end;
  
  procedure TF_Main.SetLIAddrErr(Sender:TObject; Data:Pointer);
  