anchor.diff:  
   procedure TGUITestRunnerForm.FindByData(ANode: TfpgTreeNode; var AFound: boolean);
   begin
  -  writeln('...', ANode.Text);
  +//  writeln('...', ANode.Text);
     AFound := TTest(ANode.Data) = temptest;
   //  if AFound then
   //    MemoLog('Found Node ' + ANode.Text);
  
positive.code: procedure TGUITestRunnerForm.btnClearClicked(Sender: TObject);
  begin
    memName1.Lines.Clear;
  //  tvTests.RootNode.FindSubNode(@ResetNodeColors);
  
    tvTests.RootNode.FirstSubNode.Clear;
  
negative.code:   FStartCrono: TDateTime;
  begin
    // Reset counters
    ResetCounters;
    lblRuns.Text := IntToStr(ATest.CountTestCases);
    
    lTestResult := TTestResult.Create;
    try
      lTestResult.AddListener(self);
  