如何在STRINGGRID的某一个格加入控件（如button）

procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
  Btn: TButton;
begin
  Rect := StringGrid1.CellRect(2, 2);
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^更换里面的参数会使按钮创建在不同的宾栏里
  Btn := TButton.Create(Self);
  Btn.Parent := StringGrid1;
  Btn.Left := Rect.Left;
  Btn.Top := Rect.Top;
  Btn.Caption := '你好';
end;我想要实现这个重要的是找到每一个宾栏（Cell)的位置.
上面仅仅是一个例子，在实际应用中是没有什么意义的，
根据需要自己修改吧！！