Trucs

In my main form I have this

  DBManager : TDBManager;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  DBManager.Create(IBDB, IBTrans);
  DBManager.Open;
end;


And in my other unit file, I have this :

  type PIBDatabase = ^TIBDatabase;
  type PIBTransaction = ^TIBTransaction;

  type TDBManager = class
    private
      IBDB : TIBDatabase;
      IBTrans : TIBTransaction;

    public
      constructor Create(_IBDB : TIBDatabase; _IBTrans : TIBTransaction);
      procedure Open();
  end;

constructor TDBManager.Create(_IBDB : TIBDatabase; _IBTrans : TIBTransaction);
begin
  IBDB := _IBDB;    // Here is the error
  IBTrans := _IBTrans;
end;