anchor.diff:    Self.ActiveControl := Self.B_Save;
    end;
   
  -procedure TF_BlkZamek.HlavniOpenForm;
  +procedure TF_BlkZamek.HlavniOpenForm();
    begin
     Self.LB_Stanice.Clear();
    end;
   
  -procedure TF_BlkZamek.NewBlkCreate;
  +procedure TF_BlkZamek.NewBlkCreate();
    begin
     NewBlk := true;
     OpenForm(Blky.count);
  
positive.code: 
  procedure TF_BlkZamek.B_StornoClick(Sender: TObject);
   begin
    Self.Close;
   end;
  
  procedure TF_BlkZamek.B_SaveClick(Sender: TObject);
  
negative.code: 
  procedure TF_BlkZamek.NewBlkOpenForm;
   begin
    E_Nazev.Text := '';
    SE_ID.Value := Blky.GetBlkID(Blky.count-1)+1;
  
    Self.Caption := 'Editovat data nového bloku';
    Self.ActiveControl := Self.E_Nazev;
   end;
  
  