Respond to mouse moving over control area..
procedure MouseMove(Shift: TShiftState; X: Integer; Y: Integer); override;
Overridden from TControl.MouseDown.
After calling inherited procedure dual list do next:
TDualList Methods