anchor.diff:  
      procedure OpenForm(HV:THV);
      procedure LocoChanged(Sender:TObject);
  -   procedure MyKeyPress(key:Integer);
  +   procedure MyKeyPress(key:Integer; var handled: boolean);
     end;
   
    ///////////////////////////////////////////////////////////////////////////////
  
positive.code:    Exit();
    end;
  
   Self.TB_reg.SetFocus();
  
   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;
  
negative.code:    speed:Integer;
  
     procedure SetElemntsState(state:boolean);
     procedure Acquired(Sender:TObject; data:Pointer);
     procedure AcquireFailed(Sender:TObject; data:Pointer);
  
    public
  