anchor.diff:  
       // MTB events:
       procedure OnMTBStart(Sender:TObject);
  +    procedure OnMTBScanned(Sender:TObject);
       procedure OnMTBStop(Sender:TObject);
       procedure OnMTBOpen(Sender:TObject);
       procedure OnMTBClose(Sender:TObject);
  
positive.code: 
    if (SystemData.Status = starting) then
     Self.A_Trk_ConnectExecute(nil);
  end;//procedure
  
  procedure TF_Main.OnMTBStop(Sender:TObject);
  begin
  
negative.code:   MTB.AfterClose := Self.OnMTBClose;
    MTB.AfterStart := Self.OnMTBStart;
    MTB.AfterStop  := Self.OnMTBStop;
    MTB.OnScanned  := Self.OnMTBScanned;
  
    // TODO
  {  MTB.OnErrOpen  := Self.OnMTBErrOpen;
  