캡션바를 드래그 하면 윈도우가 이동되게 하는 것을
구현 하려면..

메인폼이나 캡션바 대신 할 것의 OnMouseDown 이벤트에
아래와 같이 해주면 됩니다..

저는 TPanel을 하나 올리고 그걸 캡션바로 대신해
사용해본 적이 있는데 아래와 같이 했습니다..

procedure TfMainForm.pTitleBarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture ;
    Perform(WM_SYSCOMMAND,$F012,0) ;
end;

기람..

    미친병아리 서비였네용.. 삐약~ !!