Własny komponent i MouseDown

Witam
Mam komponent który po położeniu na formie wypełnia ją całkowicie.
Chciałbym dodać teraz przeciąganie formy za pomocą tego komponentu.
Wiem że można to zrobić za pomocą kodu

if Button = mbLeft then
begin
       ReleaseCapture;
       SendMessage(Handle, WM_NCLButtonDown, htCaption, 0);
end;

umieszczonego w OnMouseDown komponentu. Tylko jak jak wklejam ten kod w to zdarzenie to nic sie nie dzieje.
Żeby było jasne po wstawieniu na formę i wygenerowaniu zdarzenia dziła OK ale jak chce wstawić w kodzie komponentu w OnMouseDown zeby sie zawsze wykonywał niezależnie od tego czy user wstawi coś pÓźniej w to zdarzenie czy nie to nie działa.

TEMAT DO ZAMKNIĘCIA
Juz sobie poradziłem wszystko było OK powywalałem stare pliki przekompilowałem raz jeszcze i zaczeło działać.