anchor.diff:  var
     thd: TBuilderThread;
   begin
  +  ClearMessagesWindow;
     thd := TBuilderThread.Create(True);
     thd.BuildMode := 2;
     thd.OnTerminate := @BuildTerminated;
  +  thd.OnAvailableOutput := @BuildOutput;
     thd.Resume;
   end;
   
  
positive.code: var
    thd: TBuilderThread;
  begin
    thd := TBuilderThread.Create(True);
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  
negative.code: var
    thd: TBuilderThread;
  begin
    ClearMessagesWindow;
    thd := TBuilderThread.Create(True);
    thd.BuildMode := 3;
    thd.OnTerminate := @BuildTerminated;
    thd.OnAvailableOutput := @BuildOutput;
    thd.Resume;
  end;
  
  