Перемещать форму по клику на PopupMenu.Item

[Alex Cones]

   TMI := TMenuItem.Create(PPMMain);
     TMI.Caption := 'Переместить окно';
     TMI.OnClick := @MoveAll;
     TMI.Default := FALSE;

     PPMMain.Items.Add(TMI);

 Procedure TFRMMain.MoveAll(Sender : TObject);
 Begin
  ReleaseCapture;
  FRMMain.Perform(WM_SysCommand,$F012,0);
 End;

В процедуру заходит, но форма не перемещается. Как исправить?

P.S. Забейте, решил по-другому. Если кто-хочет, может все-таки найти решение.

[DomiNick]

OnClick - это же нажать кнопку мыши + отпустить её (на том же пункте)...
Видимо никак...

[ZvEr_HaCkEr]

releasecapture;
sendmessage(handle,wm_syscommand,sc_move+2,0);

может так?