проблемы с перемещением по TOPMOST

[Alex Cones]

Procedure Tfrmmain.Formpaint(Sender : Tobject);
 Begin
  If Not Popup Then
   With FRMMain Do
    SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  ...

Popup меняю на TRUE, когда вызываю POPUPMENU, И делаю обратно на FALSE, когда оно убирается. Но теперь возникла проблема:

Popup := TRUE;
With FRMMain Do
SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_SHOWWINDOW);
Application.ProcessMessages;
ReleaseCapture;
FRMMain.Perform(WM_SysCommand,$F012,0);

Не могу перемещать форму. (Это по OnMouseDown на имагу) Код выше не работает. Ни так:

ReleaseCapture;
FRMMain.Perform(WM_SysCommand,$F012,0);

Ни так:

Application.ProcessMessages;
ReleaseCapture;
FRMMain.Perform(WM_SysCommand,$F012,0);

Как сделать, чтобы заработало?