Связать процедуры из разныех Unit

[Dozent]

Здраствуйте подскажите пожайлуста как правильно написать

я создаю Дата Модуль динамически, мне надо передать дополнительный параметр в процедуру DataModuleCreate

вообщем делаю так...

в Unit1

type
  TForm1 = class(TForm)
   ..
    procedure DataModuleCreate(Sender: TObject; var Values:integer);
..

DM[i] := TDynDM.Create(Self, 1);

в unit DynamicDM;

unit DynamicDM;

interface

uses
  SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBQuery;

type
  TDynDM = class(TDataModule)
    DataSource1: TDataSource;
    DB: TIBDatabase;
    IBQuery1: TIBQuery;
    IBTransaction1: TIBTransaction;


  private
    { Private declarations }
  public
   procedure DataModuleCreate(Sender: TObject; var Values:integer);
  end;

var
  DynDM: TDynDM;

implementation

uses Unit1;

{$R *.dfm}

procedure TDynDM.DataModuleCreate(Sender: TObject; var Values:integer);
begin
DB.Connected:=true;
end;

end.

Ругается говорит что не актуальынй параметр... Подскажите как записать?

[GunSmoker]

Эээ... а ничего, что Create <> DataModuleCreate???

[Dozent]

Не понял...

[GunSmoker]

TDynDM.Create(Self, 1)

1. С чего бы у Create было два параметра?
2. И как Create связан с DataModuleCreate?
3. И почему DataModuleCreate - две штуки в разных модулях?

[Dozent]

ну я сделал дата модуль накидал нужных мне компанентов на него

type
  TDynDM = class(TDataModule)
    DataSource1: TDataSource;
    DB: TIBDatabase;
    IBQuery1: TIBQuery;
    IBTransaction1: TIBTransaction;

в ходе выполенения программы мне нужно динамически создавать дата модули, для подключения к нескольким базам, при создании датамодуля типа TDymDM создаются и компаненты находящиеся на нём, получается какбы копирования, а для удобства считывания даных для подключения я хочу передавать номер подключения в процедуру создания датамодуля чтобы там считывались даные и происходило подключение к базе...

[Dozent]

Тему можно закрыть спасибо