anchor.diff:                 if (fMouseOverTab = -1) then
                     Cursor := crNo
                  else
  -               if (fMouseDragTab <> fMouseOverTab) then
  +               if (fMouseDragTab <> fMouseOverTab) and (fMouseDragTab <> -1) then   // [dpv]: and (fMouseDragTab <> -1)
                     Cursor := crDrag
                  else
                     Cursor := crDefault;
  
positive.code:   Form: TCustomForm;
  {$Endif}
  begin
    UpdateActivePage;
    if csDesigning in ComponentState then
    begin
  
negative.code: var
     tabsheet1 : TTab95Sheet;
  begin
       if (ftabshifting) and (button = mbleft) and (fMouseDragTab <> fMouseOverTab) and (fMouseOverTab <> -1) and (fMouseDragTab <> -1) then   // [dpv]: and (fMouseDragTab <> -1)
       begin
            TabSheet1 := Pages[fMouseDragTab];
            TabSheet1.PageIndex := fMouseOverTab;
  