anchor.diff:            begin
               if Peer.Sock.SSL.LastError <> 0 then
               begin
  -              OutputDebugText('EXECUTE SSLERROR '+IntToStr(Peer.Sock.SSL.LastError )+' '+Peer.Sock.SSL.LastErrorDesc );
  +              OutputDebugText(Format('EXECUTE SSLERROR %d %s',[Peer.Sock.SSL.LastError,Peer.Sock.SSL.LastErrorDesc]));
                 Disconnect(FPeer);
               end;
             end;
             else
             begin
  -           OutputDebugText(e.ClassName+' '+e.Message);
  +           OutputDebugText(Format('%s %s',[e.ClassName,e.Message]));
              Disconnect(FPeer);
             end;
           end;
  
positive.code: 
  procedure TSynapseTCPServerThread.Execute;
  begin
    SetName;
    BeforeExecute;
    try
      while not Terminated do
  
negative.code: {$ELSE}
    Windows,
  {$ENDIF}
    SysUtils, Math, uHssShareLog, DateUtils;
  
  var
    PeerID:integer=0;
  