Dynamische Komponente wird nicht "ausgegeben"

[Nicodius]

das ist von ner unit von mir

Delphi-Quellcode:

unit ereignis;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QStdCtrls;
type
  TEreignis = class
  Ereignis_ID    : Integer;
  Ereignis_Titel : String[150];
  Ereignis_Text  : TLabel;
  Ereignis_Bild  : TImage;
  Ereignis_Besd  : Set of (bok,bno,byes,bcancle);
  Ereignis_Form  : TForm;
  procedure CreateForm(Left,Top,Width,Height : Integer; Caption, Text : String; Form : TWinControl);
  procedure OkButtonClick(Sender : TObject);

end;

und Twidgetcontrol ist zum beispiel eine Groupbox