procedure TForm2.Button1Click(Sender: TObject);
var curpos: TPoint;
     lockrect: TRect;
     n: integer;
begin
//"выключаем" мышку
n:=1; //при 1 мышь неподвижна, другие значения дают ей
//возможность затравленно дергаться
GetCursorPos(curpos);
lockrect.Right:=curpos.X;
lockrect.Left:=lockrect.Right-n;
lockrect.Bottom:=curpos.Y;
lockrect.Top:=lockrect.Bottom-n;
ClipCursor(@lockrect);
end;

procedure TForm2.Button2Click(Sender: TObject);
var lockrect: TRect;
begin
//"включаем" мышку
lockrect.Left:=0;
lockrect.Top:=lockrect.Left;
lockrect.Right:=GetSystemMetrics(SM_CXSCREEN);
lockrect.Bottom:=GetSystemMetrics(SM_CYSCREEN);
ClipCursor(@lockrect);
end;