[seb@]

mira no pude hacer andar el boton dentro del tstringgrid con el codigo que me enviaste, use el siguiente y anda bien, puede ser otra alternativa:
Este codigo lo utilice en el evento SelectCell del tstringgrid

Código Delphi [-]

var
  R: TRect;
begin
      // sgdWork_Sheet_Data es un tstringgrid
      R := sgdWork_Sheet_Data.CellRect(ACol, ARow);
      R.Left := R.Left + sgdWork_Sheet_Data.Left;
      R.Right := R.Right + sgdWork_Sheet_Data.Left;
      R.Top := R.Top + sgdWork_Sheet_Data.Top;
      R.Bottom := R.Bottom + sgdWork_Sheet_Data.Top;
      // btnMemo es un boton
      btnMemo.Width := 16;
      btnMemo.Left := R.Right - btnMemo.Width + 2;
      btnMemo.Top := R.Top + 2;
      btnMemo.Height := (R.Bottom) - R.Top;
 
      btnMemo.Visible := True;
      btnMemo.SetFocus;
end;