como limitar a posicao de cursor do mouse ( delphi )

procedure TForm1.FormCreate(Sender: TObject); var Rec: TRect; begin
with Button1 do begin; Rec.Left := Form1.Left+Left;
Rec.Top := Form1.Top+Top+(Form1.Height-Form1.ClientHeight);
Rec.Right := Form1.Left+Left+Width;
Rec.Bottom := Form1.Top+Top+Height+(Form1.Height-Form1.ClientHeight);
end; clipcursor(@rec); end;
procedure TForm1.Button1Click(Sender: TObject); begin clipcursor(nil);
end;