anchor.diff:   F_Main.LogStatus('Centrála: komunikuje');
   
    F_Main.LogStatus('Zjišťuji verzi FW v centrále...');
  - Self.callback_ok  := TTrakce.GenerateCallback(Self.GotCSVersionOK);
  +{ Self.callback_ok  := TTrakce.GenerateCallback(Self.GotCSVersionOK);
    Self.callback_err := TTrakce.GenerateCallback(Self.GotCSVersionErr);
  - Self.GetCSVersion();
  + Self.GetCSVersion(); }
   end;
   
   procedure TTrkGUI.InitStopErr(Sender:TObject; Data:Pointer);
  
positive.code: end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TTrkGUI.GotCSVersionOK(Sender:TObject; Data:Pointer);
  begin
   Self.callback_ok  := TTrakce.GenerateCallback(Self.GotLIVersionOK);
   Self.callback_err := TTrakce.GenerateCallback(Self.GotLIVersionErr);
   Self.GetLIVersion();
  
   Self.callback_err := TTrakce.GenerateCallback(Self.GotLIAddrErr);
   Self.GetLIAddress();
  end;
  
  procedure TTrkGUI.GotCSVersionErr(Sender:TObject; Data:Pointer);
  begin
   F_Main.LogStatus('WARN: Centrála nepodvěděla na požadavek o verzi centrály, pokračuji...');
   Self.GotCSVersionOK(Self, data);
  end;
  
  procedure TTrkGUI.GotLIVersionOK(Sender:TObject; Data:Pointer);
  begin
   if (SystemData.Status = starting) then
    begin
     if (Self.Trakce.TrackStatus <> Ttrk_status.TS_ON) then
       F_Main.A_DCC_GoExecute(self)
      else
       F_Main.A_All_Loko_PrevzitExecute(nil);
    end;
  end;
  
  procedure TTrkGUI.GotLIVersionErr(Sender:TObject; Data:Pointer);
  begin
   F_Main.LogStatus('WARN: Centrála neodpověděla na požadavek o verzi LI, pokračuji...');
   Self.GotLIVersionOK(Self, data);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TTrkGUI.GotLIAddrErr(Sender:TObject; Data:Pointer);
  begin
   F_Main.LogStatus('WARN: Centrála neodpověděla na požadavek o adresu LI');
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  // callbacky pri nastavovani funkci hnacicho vozidel (F0-Fn)
  // data jsou TFuncCallback
  
  
negative.code:  Self.finitok := true;
   F_Main.LogStatus('Centrála: komunikuje');
  
  { Self.callback_ok  := TTrakce.GenerateCallback(Self.GotCSVersionOK);
   Self.callback_err := TTrakce.GenerateCallback(Self.GotCSVersionErr);
   Self.GetCSVersion(); }
  
   if (SystemData.Status = starting) then
    begin
  