anchor.diff:      Threaded: Boolean;
       DoStop: Boolean;
       procedure MessageQueued(Sender: TObject);
  -    procedure Start;
       procedure PrintMessage;
     end;
   
  
positive.code:   except
      exit(1);
    end;
  end; exports sIpcReadMsgAsString;
  *)
  
  
negative.code: }
  function sIpcReadMsgAsString(buf: pchar): int32; cdecl;
  begin
    if not assigned(ipc) then exit(3);
    if not assigned(ipc.srv) then exit(4);
    if not ipc.srv.active exit(5);
  