Como mover una ventana sin bordes

[SMTZ]

Hola, ¿cómo puedo mover una ventana que no tiene bordes? En la web de trucomania he visto el siguiente truco pero el problema que tiene es que luego no se pueden mostrar los popus.


private
{ Private declarations }
//procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;


procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
Begin

inherited;
if Msg.Result = htClient then Msg.Result := htCaption;

End