Fórum Button dentro de uma grid nao funciona o envento de click #422841

procedure TForm1.btnClick(Sender: TObject);
begin
  ShowMessage('teste');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  btn : TBitBtn;
  grid: TStringGrid;
begin
  grid := TStringGrid.Create(self);
  grid.Parent := self;
  btn := TBitBtn.Create(self);
  btn.OnClick := btnClick;
  btn.Width := 15;
  btn.Height := 19;
  btn.Caption := 'I';
  btn.Parent := grid;
end;