Applies toTESBBaseEdit
DeclarationTDragOverEvent = Procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;