anchor.diff:  end;
   
   procedure TBlkPrejezd.SaveData(ini_tech:TMemIniFile;const section:string);
  +var i: Integer;
   begin
    inherited SaveData(ini_tech, section);
   
  
positive.code: implementation
  
  uses TBloky, GetSystems, ownStrUtils, TJCDatabase, TCPServerOR, RCS, UPO,
       Graphics, TCPORsRef, Prevody, Diagnostics;
  
  constructor TBlkPrejezd.Create(index:Integer);
  begin
  
negative.code:     procedure FillRCSModules();
  
    public
     tracks: TObjectList<TBlkPrjTrack>;
  
      constructor Create(index:Integer);
      destructor Destroy(); override;
  
  