Перемещение компонентов

Я пишу в своем графическом компоненте этот код, но он не работает

long SC_DRAGMOVE = 0xF012;
ReleaseCapture();
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);