anchor.diff:     Exit();
     end;
   
  - Self.TB_reg.SetFocus();
  -
  + handled := true;
    case (key) of
     VK_NUMPAD0 : Self.CHB_svetla.Checked := not Self.CHB_svetla.Checked;
     VK_NUMPAD1 : Self.CHB_f1.Checked := not Self.CHB_f1.Checked;
  
positive.code: 
     procedure OpenForm(HV:THV);
     procedure LocoChanged(Sender:TObject);
     procedure MyKeyPress(key:Integer);
    end;
  
   ///////////////////////////////////////////////////////////////////////////////
  
negative.code: end;
  
  // vyvola se, pokud je me okynko aktivni a je nad nim stiskla klavesa
  procedure TF_DigiReg.MyKeyPress(key:Integer; var handled: boolean);
  begin
   if (not Self.OpenHV.acquired) then
    begin
  