おまけ。
201だとフォームが移動できないから、ドラッグで移動させたい場合は

procedure Form1.Panel1MouseDown(Sender: TObject;
Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
//マウス左ボタンが押されているとき
If ssLeft in Shift then
begin
//マウスキャプチャを解放する
ReleaseCapture;
//Formをドラッグせよという命令を送る
SendMessage(aterollBrowser.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0);
end;
end;