anchor.diff:    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
  
positive.code: 
    if C is TTrackBar then
      exit(IntToStr((C as TTrackBar).Position));
  
    if C is TListFilterEdit then
      exit((C as TListFilterEdit).Text);
  
negative.code:     (Ctl as TTrackBar).Min:= -100000;
      (Ctl as TTrackBar).Max:= 100000;
      (Ctl as TTrackBar).OnChange:= @AForm.DoOnChange;
      exit;
    end;
  
    if S='progressbar' then
    begin
      Ctl:= TProgressBar.Create(AForm);
      (Ctl as TProgressBar).Min:= -100000;
      (Ctl as TProgressBar).Max:= 100000;
      exit;
    end;
  
  