Как запретить передвижение окна

[Nester]

Необходимо блокировать (по флажку переменная true-false)
возможность предвигать форму -тоесть при попытке её переместить она
оставалась на том же месте

[ZuBy]

можно сделать так:
BorderStyle := bsNone;
теперь в OnMouseDown пишешь

if CheckBox1.Checked(это твой флажок) then
begin // если true
Releasecapture;
Perform(wm_SYSCOMMAND, $f012, 0);
end else
exit;

[Kotofff]

Сообщение от Nester

Необходимо блокировать (по флажку переменная true-false)
возможность предвигать форму -тоесть при попытке её переместить она
оставалась на том же месте

Сначала в секции private объявляем процедуру :

private
   procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

данным кодом привлекаем в свое приложение системного обработчика передвижения и клика мышкой.
И затем обрабатываем клик мышкой на нашей форме :

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;// позволяем обработчику поработать по-умолчанию
  with Message do
   if Result = HTCAPTION then Result := HTNOWHERE;// здесь "дурим" его отвечая на нажатие мышки по заголовки, что клика вообще небыло.
end;

Я думаю, что тебе будет не трудно прикрутить данный код к своей задаче.
Я не стал писать тебе ответ полностью - ты должен сам все доделать. Иначе не поймешь.

[Nester]

Спасибо то что надо!