ReleaseCapture в downMouse + mouseUp

[NaumOff]

Перетаскиваю форму мышкой кодом:

procedure TMyGraph.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
 ReleaseCapture;
 perform(WM_SysCommand, SC_DragMove, 0);
end;

После чего в mouseUp мне надо запомнить положение формы. Событие mouseUp не наступает вследствии ReleaseCapture. Как побороть?
Есть вариант использовать другую реализацию - MouseDown+MouseDown+MouseDown+глоба льные переменные. Но можеть быть первый способ можно подправить.
П.С. Дурацкая была идея с запоминанем положения формы в mouseUp. Все отлично работает и в MouseDown-запоминание выполняется один раз после окончания перемещения, что мне и требовалось.