anchor.diff:    Form: TCustomForm;
   {$Endif}
   begin
  +  fMouseOverTab:= -1;  // [dpv] To avoid automatic shift (erroneous) of tabs when changing active page in a multiline tabs
  +  fMouseDragTab:= -1;  // [dpv]
     UpdateActivePage;
     if csDesigning in ComponentState then
     begin
  
positive.code: var
     tabsheet1 : TTab95Sheet;
  begin
       if (ftabshifting) and (button = mbleft) and (fMouseDragTab <> fMouseOverTab) and (fMouseOverTab <> -1) then
       begin
            TabSheet1 := Pages[fMouseDragTab];
            TabSheet1.PageIndex := fMouseOverTab;
  
negative.code:                if (fMouseOverTab = -1) then
                    Cursor := crNo
                 else
                 if (fMouseDragTab <> fMouseOverTab) and (fMouseDragTab <> -1) then   // [dpv]: and (fMouseDragTab <> -1)
                    Cursor := crDrag
                 else
                    Cursor := crDefault;
  