Exception "Duplicate database name" bei zwei Instanzen

[moelski]

Moin !

Habe diesen Code hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ABSMain, DB, DBGrids;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


type
  TDM = class
  private
    { Private-Deklarationen }
    DB          : TABSDatabase;
    Session     : TABSSession;
  public
    constructor Create;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  one, two : TDM;

implementation

constructor TDM.Create;
begin
  inherited;
  Session                 := TABSSession.Create(Nil);
//  Session.SessionName     := 'LVSession';
  Session.AutoSessionName := True;
  Session.Active          := True;

  DB                      := TABSDatabase.Create(Nil);
  DB.DatabaseName         := 'LVDataBase';
  DB.SessionName          := Session.SessionName;
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  one := tdm.Create;
  two := tdm.Create;
end;

end.

Im Grunde nutzlos, aber es kommt da zu einem komischen Problem.
Ich habe ja zwei Instanzen von meiner TDM Klasse. Und ich würde mal sagen das ich dann im Normalfall auch keine Konflikte zwischen "one" und "two" haben sollte.
Dennoch bekomme ich diesen Fehler:

Code:

Erste Gelegenheit für Exception bei $7C812AFB. Exception-Klasse EDatabaseError mit Meldung 'Duplicate database name 'LVDataBase''. Prozess Project2.exe (3584)

Kann sich jemand einen Reim drauf machen was da schief geht ?!