anchor.diff:    readSz: LongInt;
     ioBuffSz: LongInt;
     dt: PMessageItemData;
  +  i: NativeInt;
     msg: string;
   begin
     If not (poUsePipes in aProcess.Options) then exit;
  
positive.code: 
  procedure TCEMainForm.closeProj;
  var
    widg: TCEWidget;
  begin
    for widg in WidgetList do widg.projClose(fProject);
    fProject.Free;
    fProject := nil;
  end;
  
  procedure TCEMainForm.newProj;
  var
    widg: TCEWidget;
  begin
    fProject := TCEProject.Create(nil);
    fProject.Name := 'CurrentProject';
    for widg in WidgetList do widg.projNew(fProject);
    fProject.onChange := @projChange;
    fProject.libraryManager := fLibMan;
  end;
  
negative.code:     trgMnu.Add(itm);
      trgMnu.AddSeparator;
  
      for i:= 0 to srcLst.Count-1 do
      begin
        fname := srcLst.Strings[i];
        itm := TMenuItem.Create(trgMnu);
        itm.Hint := fname;
        itm.Caption := shortenPath(fname, 50);
  