[Winny]

Надо писать не:

Код:

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
   inherited;
   Msg.Result := HTCAPTION;
end;

А надо писать обработчик на событие OnMouseDown главной формы, которую ты хочешь перенести:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TForm(form1).perform(WM_SYSCOMMAND, $F012, 0);
end;
end.

Вот так форма будет перемещаться.