anchor.diff:    FLanguage := ltPas;
     FSearchAll := True; // search anywhere in a method name
   //  FImageList := TfpgImageList.Create;
  -  
  +
   //  CreateImage_BMP(@grdimg_destructor_16, SizeOf(grdimg_destructor_16));
   
     fpgImages.AddMaskedBMP(  // 16x16 image
  
positive.code:     for I := 0 to Decls.Count - 1 do
      begin
        p := TObject(Decls[I]) as TPasElement;
        Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
  
      end;
      FreeAndNil(M);
    finally
  
negative.code:       finally
          LoadObjectCombobox;
        end;
  //      SendDebug('Procedure List: QuickSorting procedures');
        QuickSort(0, FProcList.Count - 1);
  //      StatusBar.Panels[1].Text := Trim(IntToStr(lvProcs.Items.Count));
      finally
  