Source position: zrdsgn.pas line 115
procedure TZRDesignForm.tvBandsDragOver(
Sender: TObject;
Source: TObject;
X: Integer;
Y: Integer;
State: TDragState;
var Accept: Boolean
);