Efectivamente tu ejemplo funciona a la perfeccion pero sigue sin funcionarme el click de los botones incrustados en la grilla. A tu ejemplo agregue
Código Delphi
[-]
procedure TForm1.FormShow(Sender: TObject);
var i : integer;
begin
for i := 1 to 9 do
begin
t := TButton.Create(nil);
t.Caption := 'Quitar';
t.Width := 87;
t.Name := 'BT'+IntToStr(i);
t.Parent := StringGrid1;
t.BoundsRect:= StringGrid1.CellRect(4, i);
t.OnClick:= button2click;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;
end;
Alguna otra idea?