anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +constructor TTCPReceived.Create();
  +begin
  + inherited;
  + Self.parsed := TStringList.Create;
  +end;
  +
  +destructor TTCPReceived.Destroy();
  +begin
  + Self.parsed.Free();
  + inherited;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   constructor TORTCPServer.Create();
   var i:Integer;
   begin
  
positive.code:   _PANEL_DEFAULT_PORT = 5896;                                                   // default port, na ktere bezi server
    _MAX_OR_CLIENTS = 32;                                                         // maximalni pocet klientu
    _PING_TIMER_PERIOD_MS = 250;
  
    // tady jsou vyjmenovane vsechny verze protokolu, ktere akceptuje server od klientu
    _PROTO_V_ACCEPT : array[0..1] of string =
  
negative.code:    end;
   end;
  
   Self.receiveTimer.Enabled := true;
   Self.pingTimer.Enabled := true;
  
   F_Main.S_Server.Brush.Color := clLime;
  