delphi - ドッキング時にパネルの閉じるボタンを非表示にする必要があります

Question

ユーザーが右上隅の「X」ボタンを押してパネルを閉じることができるようにしたくありません。しかし...パネルがドッキングされると、パネルの隅に小さな「x」が表示されますか?この小さなボタンを非表示にする方法はありますか?

ドック作成パネルでコードを試しましたが、機能しません

procedure Tframe1.panBorderEndDock(Sender, Target: TObject; X,  Y: Integer);
 var
   hMenuHandle : Integer;
   begin
     inherited;
     hMenuHandle := GetSystemMenu(panBorder.Handle, False);
     if (hMenuHandle <> 0) then
     DeleteMenu(hMenuHandle , SC_CLOSE, MF_BYCOMMAND);
   end;

親切に私のコードをチェックして、いくつかの提案をしてください。