[axesys]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
  var b:TButton;
begin
  b := TButton.Create(self);
  b.Parent := StringGrid1;
  b.BoundsRect := StringGrid1.CellRect(2,3);
  b.OnClick := Button1Click;
end;