BeginDrag & EndDrag Bug

I have ported Delphi 1 code to Delphi 3 which fails on the EndDrag methods
for TTreeView, TOutline, TPanel, and TShape objects in Delphi 3.

Is this a confirmed bug and is there an update version for Delphi 3 that
fixes the bug?
I am using Delphi 3 (Build 5.83) which I thought is the latest release.