anchor.diff:  end;//function
   
   function TTrkGUI.Close(force:boolean = false):Byte;
  +var i:Integer;
   begin
    if ((SystemData.Status = stopping) and (not Self.openned)) then
     begin
  
positive.code:       FlowControl:TFlowControl;
       end;
  
       force_close:boolean;
  
       function GetOpenned():boolean;                                             // je seriak otevreny ?
  
       procedure TrkLog(Sender:TObject; lvl:Integer; msg:string);                 // logovaci event z .Trakce
  
negative.code:  Self.callback_ok  := TTrakce.GenerateCallback(Self.OdhlasenoPOMOK, cb);
   Self.callback_err := TTrakce.GenerateCallback(Self.OdhlasenoPOMErr, cb);
  
   // nenastavovat HV.ruc, POM si tady delame sami !!
   HV.Stav.ruc := false;
  
   Self.POMWriteCVs(Self, HV, HV.Data.POMrelease, TPomStatus.released);
  