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.BuildMode := 5;
    thd.OnTerminate := @BuildTerminated;
    thd.Resume;
  end;
  
  
negative.code:   AddMessage('Compilation complete');
  end;
  
  procedure TMainForm.BuildOutput(Sender: TObject; const ALine: string);
  begin
    AddMessage(ALine);
  end;
  
  procedure TMainForm.UpdateStatus(const AText: TfpgString);
  begin
    lblStatus.Text := AText;
  