Движение объекта на форме мышью

[psycho-coder]

Form1.AlphaBlend := true;
...
TPNGObject1.MouseDown(Sender: TObject);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, WM_MOVE + 2, 0);
end;

Подправил. Кажется так. Но у меня не работает. Что то упустил(

[_-Re@l-_]

Perform;

Ощибка Not enough actual parametres

SysCommand(WM_MOVE + 2, 0, 0);

Ошибка Undeclared identifier

[DomiNick]

TPNGObject1.MouseDown

Эм... А у меня TPNGObject - это просто класс такой... Как TBitmap...