ja ....
das hier könnte Dir weiterhelfen
// -----------------------------------------------------------------------------
// Project: Drag and Drop Component Suite
// Module: DragDrop
// Description: Implements base classes and utility functions.
// Version: 5.2
// Date: 17-AUG-2010
// Target:
Win32, Delphi 5-2010
// Authors: Anders Melander,
anders@melander.dk,
http://melander.dk
// Copyright © 1997-1999 Angus Johnson & Anders Melander
// © 2000-2010 Anders Melander
// -----------------------------------------------------------------------------