Button OnClick wird nicht ausgelöst..

[Angel4585]

Hallo zusammen,

ich hab folgendes Problem:

Hiermit mach ich in Stringgrid einen bzw. mehrere Buttons:

Delphi-Quellcode:

procedure TForm1.StringgridDrawCell(Sender : TObject; ACol, ARow : Integer; Rect : TRect; State : TGridDrawState);
begin
if (ACol = 2) and (ARow > 0) and (Stringgrid1.Objects[ACol,ARow] = nil) then
  begin
  Stringgrid1.Objects[ACol,ARow]:=TButton.Create(Stringgrid1);
  with TButton(Stringgrid1.Objects[ACol,ARow]) do
    begin
    Name := 'sgButton'+IntTostr(ARow);
    Parent:=Stinggrid1;
    Top:=Rect.Top;
    Left:=Rect.Left;
    Width:=Rect.Right-Rect.Left;
    Height:=Rect.Bottom-Rect.Top;
    OnClick:=MyOnClick; 
    end;
  end;
end;

procedure TForm1.MyOnClick(Sender : TObject);
begin
if Sender is TButton then
  with TButton(Sender) do
    Stringgrid1.Cells[0,StrToint(Copy(Name,9,Length(Name)-9))]:='Clicked';
end;

mein kleines aber feines Problem ist jetzt, dass das zugewiesene OnClick nicht ausgeführt wird. weis jemand was da noch fehlt?

MfG