举个例子说明mousecapture 和setcapturecontrol的用法(内容空)(28分)

mousecapture 允许TWinControl获取其可视区域外的鼠标事件，
例如：鼠标按一个TButton然后拖出TButton区域，然后松开。。。

能够在form外得到mousedown

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
SetCapture(Form1.Handle);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Caption:='Catched!';
end;

menxin:
用完后如何释放？