TCore
ro
OnDrawDrag
TWinApp