anchor.diff:  
   procedure TF_Main.B_User_DeleteClick(Sender: TObject);
   begin
  - if (Application.MessageBox(PChar('Opravdu smazat uživatele '+Self.LV_Users.Selected.SubItems.Strings[0]+' ?'), 'Opravdu?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
  + if (Application.MessageBox(PChar('Opravdu smazat uživatele '+Self.LV_Users.Selected.SubItems.Strings[0]+' ?'),
  +                            'Opravdu?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
     begin
      UsrDB.RemoveUser(Self.LV_Users.ItemIndex);
      Self.B_User_Delete.Enabled := false;
  
positive.code: begin
   if (Self.LV_Stanice.Selected = nil) then Exit();
   ORs.GetORByIndex(Self.LV_Stanice.ItemIndex, OblR);
   if (Application.MessageBox(PChar('Opravdu smazat zásobník jízdních cest stanice '+OblR.Name+' ?'), 'Opravdu?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
     OblR.stack.ClearStack();
  end;
  
  
negative.code: var jc:TJC;
  begin
   jc := JCDb.GetJCByIndex(LV_JC.ItemIndex);
   if (Application.MessageBox(PChar('Opravdu chcete smazat jízdní cestu '+jc.nazev+' ?'),
                              'Mazání jízdní cesty', MB_YESNO OR MB_ICONQUESTION OR MB_DEFBUTTON2) = mrYes) then
    begin
     try
       if (ABlist.Contains(jc)) then
  