anchor.diff:  var i:Integer;
       tmp:string;
       blk:TBlk;
  +    found:boolean;
   begin
    // najdeme klienta v databazi
    for i := 0 to _MAX_OR_CLIENTS-1 do
  
positive.code:  // parse handhake
   if (parsed[1] = 'HELLO') then
    begin
     // tady muze prijit kontrola verze protokolu - je to ulozeno v Self.parsed[2]
     Self.clients[i].status := TPanelConnectionStatus.opened;
     Self.SendLn(AContext, '-;HELLO;' + _PROTOCOL_VERSION);
  
  
negative.code:   _PANEL_DEFAULT_PORT = 5896;                                                   // default port, na ktere bezi server
    _MAX_OR_CLIENTS = 32;                                                         // maximalni pocet klientu
    _PING_TIMER_PERIOD_MS = 20000;
  
    // tady jsou vyjmenovane vsechny verze protokolu, ktere akceptuje server od klientu
    _PROTO_V_ACCEPT : array[0..0] of string =
      (
        '1.0'
      );
  
  
  type
    TPSCallback = procedure (Sender:TIdContext; success:boolean) of object;
  