anchor.diff:  
     if C is TTrackBar then
       exit(IntToStr((C as TTrackBar).Position));
  +
  +  if C is TProgressBar then
  +    exit(IntToStr((C as TProgressBar).Position));
   
     if C is TListFilterEdit then
       exit((C as TListFilterEdit).Text);
  
positive.code:     (Ctl as TTrackBar).Min:= -100000;
      (Ctl as TTrackBar).Max:= 100000;
      (Ctl as TTrackBar).OnChange:= @AForm.DoOnChange;
      exit;
    end;
  
  
negative.code:   if C is TTrackBar then
    begin
      (C as TTrackBar).Position:= StrToIntDef(S, 0);
      exit
    end;
    if C is TProgressBar then
    begin
      (C as TProgressBar).Position:= StrToIntDef(S, 0);
      exit
    end;
    if C is TListFilterEdit then
  