anchor.diff:  begin
     if FWinHandle > 0 then
       Exit; //==>
  -    
  +
     FSkipResizeMessage := True;
   
     FWinStyle   := WS_OVERLAPPEDWINDOW;
  
positive.code: 
    CurrentWindowHndl := WindowFromPoint(spt);
    CursorInDifferentWindow := (CurrentWindowHndl <> uLastWindowHndl);
    
    if CursorInDifferentWindow then
    begin
      FillChar(msgp, sizeof(msgp), 0);
  
negative.code:         fpgSendMessage(nil, CurrentWindow, FPGM_MOUSEENTER, msgp);
      end;
    end;
  
    uLastWindowHndl := CurrentWindowHndl;
  end;
  
  