anchor.diff:        repeat
           FScrollPos:= Min(APosTo, FScrollPos+cStep);
           Paint;
  +        Application.ProcessMessages;
           Sleep(cSleepTime);
  -        Application.ProcessMessages;
         until FScrollPos=APosTo
       else
         repeat
           FScrollPos:= Max(APosTo, FScrollPos-cStep);
           Paint;
  +        Application.ProcessMessages;
           Sleep(cSleepTime);
  -        Application.ProcessMessages;
         until FScrollPos=APosTo;
     finally
       Enabled:= true;
  
positive.code: type
    { TATTabs }
  
    TATTabs = class(TPanel)
    private
      //drag-drop
      FMouseDown: boolean;
  
negative.code: 
  
  function TATTabs.GetScrollPageSize: integer;
  const
    cPercents = 80;
  begin
    Result:= ClientWidth * cPercents div 100;
  end;
  
  function TATTabs.GetMaxScrollPos: integer;
  