TStringGrid i komórka z przyciskiem

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    procedure buttonclick(sender: tobject);
    procedure FormCreate(sender: tobject);
    procedure StringGrid1DrawCell(sender: tobject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.buttonclick(sender: tobject);
begin
  showmessage('Wiersz : ' + inttostr(self.StringGrid1.Row));
end;

procedure TForm2.FormCreate(sender: tobject);
var
  I: Integer;
  lButton: TButton;
begin
  for I := self.StringGrid1.FixedRows to self.StringGrid1.RowCount - 1 do
  begin
    lButton := TButton.Create(self.StringGrid1);
    lButton.Caption := inttostr(I);
    lButton.Parent := self.StringGrid1;
    lButton.OnClick := self.buttonclick;
    self.StringGrid1.Objects[self.StringGrid1.ColCount - 1, I] := lButton;
  end;

end;

procedure TForm2.StringGrid1DrawCell(sender: tobject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  lStringgrid: TStringGrid;
begin
  lStringgrid := TStringGrid(sender);
  if (ACol >= lStringgrid.Fixedcols) and (ARow >= lStringgrid.FixedRows) then
    if (lStringgrid.ColCount - 1) = ACol then
    begin
      TButton(lStringgrid.Objects[ACol, ARow]).BoundsRect := Rect;
      TButton(lStringgrid.Objects[ACol, ARow]).Visible := true;
    end
end;

end.