Probleme mit in Tstringgrid eingelagerte Combobox

[R2009]

Hi,

ich habe ein Nachfolger von Tstringgrid abgeleitet und dort eine combobox eingebettet.
Funktioniert soweit alles, bis ich ein item (in der Combobox) hinzufügen will.
Combobox wird angezeigt, nur beim anklicken klappt sie nicht auf. Was mach ich falsch?

Delphi-Quellcode:

unit u_grid;
interface
uses grids, classes, stdctrls, controls, Graphics;

Type
  TUstringgrid=class (Tstringgrid)
    constructor Create(AOwner: TComponent); override;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    cb:Tcombobox;
    procedure add(s:string);
  end;

implementation

constructor TUstringgrid.Create(AOwner: TComponent);
begin
  inherited;
  cb:=tcombobox.Create(self);
  cb.Parent:=self;
  cb.Width:=defaultcolwidth;
  Align:=alclient;
  Color:=clAppWorkSpace;
  Fixedrows:=0;
  Fixedcols:=0;
end;

procedure TUstringgrid.add(s:string);
begin
  cb.Items.Add(s);
end;

end.

Aufruf mit:

Delphi-Quellcode:

   v:=TUstringgrid.Create(self);
   v.Parent:=Tabsheet2;
   v.add('Hallo');

Mir ist klar, dass ich den Text auch mit v.cb.add... hätte eingeben können funktioniert aber auch nicht.
Bei meinen eigenen Komponenten hat das bisher immer funktioniert. Steh ich jetzt nur auf der Leitung?

Vielen dank im Vorraus!