[Artfulcat]

Здравствуйте! Есть такая проблема: требуется вставить в ячейки Stringgridа кнопки, так как на картинке



Собсна вставить кнопки не проблема - сейчас это делается таким кодом:

Код:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  var
  NewButton: TButton;
  Rect: TRect;
begin
 NewButton := TButton.Create(Self);
 NewButton.Caption:='+';
 NewButton.Parent := Self;
 Form1.StringGrid1.Objects[ACol,ARow] := NewButton;
 Rect := Form1.StringGrid1.CellRect(ACol,ARow); 
NewButton.Left := Form1.StringGrid1.Left + Rect.Left+2;
NewButton.Top := Form1.StringGrid1.Top + Rect.Top+2;
NewButton.Width := Rect.Right - Rect.Left;
NewButton.Height := Rect.Bottom - Rect.Top;
NewButton.Visible := True;
end;

Проблема в том, как получить доступ к событиям onClick этих кнопок в дальнейшем? Заранее спасибо!