StringGridで、エクセルの詳細表示のように、タイトル（FixedRows)をクリックしたときに
その列の値を並べ替えようと思い、FixedRowにボタンを配置し、そこをクリックしたときに
ソートするようにして機能は実現できたのですが、
OptionsのColSizingをTrueにしていても、サイズ変更ができなくなってしまいました。

ソートと、サイズ変更両方できるようにするにはどうすればよいでしょうか。
よろしくお願いします。

　private
　　BtnGrdSort1, BtnGrdSort2, BtnGrdSort3, BtnGrdSort4 : TButton; //必要なcol分宣言

procedure TForm1.FormCreate(Sender: TObject);
begin
　BtnGrdSort1 := TButton.Create(Self); //必要なCol分Create　以下同じく
　BtnGrdSort1.OnMouseDown := BtnSortMouseDown;
　BtnHaiti(BtnGrdSort1 ,1,0);
end;
procedure TForm1.BtnHaiti(BtnName :TButton;Col,Row:Integer);
var　 BLoc:TPoint;
begin
　BLoc:=Point(Col,Row);
　BtnName.Parent:=StringGrid1;
　BtnName.BoundsRect :=StringGrid1.CellRect(BLoc.X,Bloc.Y);
end;

procedure TForm1.BtnSortMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
　ShowMessage('ソート処理');
end;