ActiveX komponenten dynamisch erzeugen

[Alexander]

Hallo!
Ich möchte unter Turbo Delphi eine ActiveX Komponenten dynamisch erzeugen.
Mein bisheriger Code sieht so aus:

Delphi-Quellcode:

  strict private
    DCube: AxDynamiCubeLib.AxDCube;
{...}
procedure TMDIChild.initializeCube();
var
  resources: System.Resources.ResourceManager;
begin
  resources := System.Resources.ResourceManager.Create(TypeOf(TMainFrm));
  DCube := AxDynamiCubeLib.AxDCube.Create;
  DCube.Parent := Self;
  Self.DCube.Dock := System.Windows.Forms.DockStyle.Fill;
  Self.DCube.Enabled := True;
  Self.DCube.Location := System.Drawing.Point.Create(0, 0);
  Self.DCube.Name := 'DCube';
  Self.DCube.OcxState := (System.Windows.Forms.AxHost.State(resources.GetObject('DCube.OcxState')));
  Self.Controls.Add(DCube);
  Self.DCube.TabIndex := 0;
end;

Irgendetwas scheint da aber zu fehlen :stupid:
Die Komponente erscheint zwar wunderbar auf dem Window Forms, schmeißt mir aber den folgenden Fehler entgegen, sobald ich drauf zugreife:

Zitat:

Projekt hat die Exception-Klasse InvalidActiveXStateException ausgelöst.

Das lustigste ist ja, dass ich neulich in der InitializeComponent Procedure einen ähnlichen Code drin hatte und mir Turbo Delphi die Komponente sogar zur Designzeit auf der Form angezeigt hat. Da bekam ich den Fehler aber nicht. Jetzt habe ich das erneut geöffnet und die Komponente ist wieder weg :? (ja ich hatte gespeichert...).

Kennt ihr diesen Fehler und ggf. auch eine Lösung?