Limitndo o movimento do mouse

// Insira na seção uses a seguinte claúsula:
Windows

// Coloque um botão no form e altera o evento OnClick dele conforme abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
R: TRect;
begin
{ Pega o retângulo da área cliente do form }
R := GetClientRect;
{ Converte as coordenadas do form em coordenadas da tela }
R.TopLeft := ClientToScreen(R.TopLeft);
R.BottomRight := ClientToScreen(R.BottomRight);
{ Limita a região de movimentação do mouse }
ClipCursor(@R);
ShowMessage('Tente mover o mouse para fora da área cliente do Form');
{ Libera a movimentação }
ClipCursor(nil);
end;

{Funcionamento:
Ao clicar no form aparecerá a mensagem, tente movimentar o mouse para fora da área cliente do form aberto.Esta operação não será permitida até que o usuário clique em OK na caixa de dialogo aberta.}