[Nyctos Kasignete]

roamer, одного не предусмотрели: Alt+Space -> Переместить
И — хоть заперемещайте окно стрелками. =)

А вообще — вот...

Код:

...
type
  TForm2 = class(TForm) // это ваше модальное окно
  private
    { Private declarations }
    procedure WMWINDOWPOSCHANGING(var Msg: TMessage); message WM_WINDOWPOSCHANGING;
  public
    { Public declarations }
  end;

...

procedure TForm2.WMWINDOWPOSCHANGING(var Msg: TMessage);
begin
  PWindowPos(Pointer(Msg.LParam))^.flags := PWindowPos(Pointer(Msg.LParam))^.flags or SWP_NOMOVE;
  inherited;
end;