Создание модуля данных внутри объекта

[Шурин]

Пытаюсь создать объект с собственным модулем данных:

unit DataUnit;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDataModule2 = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
    DataSource1: TDataSource;
    Table1: TTable;
  end;

  TDataObject = class(TObject)
    Private
    Public
      fDM : TDataModule2 ;

      Constructor Create ;
      Destructor Destroy ;

End ;



implementation
Uses Forms ;

{$R *.dfm}
Constructor TDataObject.Create ;
Begin
  Inherited Create ;

  Application.CreateForm(TDataModule2, fDM);
End ;

Destructor TDataObject.Destroy ;
Begin
  Inherited Destroy ;
End ;

end.

Конструктор на строчке

Application.CreateForm(TDataModule2, fDM);

выдает:

Project raised exception class EClassNotFound with message 'Class TDataSource not found'

Помогите понять в чем проблема?

[Stilet]

А что просто fDM:=TDataModule2.Create уже не модно?

[Баламут]

Вот так перепиши

type
  TDataModule2 = class(TDataModule)
   DataSource1: TDataSource;
   Table1: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
//    DataSource1: TDataSource;
//    Table1: TTable;
  end;