ExtractFilePath(ParamStr(0)) für 4 Datenmodule anwenden

[dlenz]

so, jetzt habe ich das wie folgt im 1. Datenmodul angewendet:

Delphi-Quellcode:

unit u_dm1;

interface

uses
  SysUtils, Classes, DB, TdbQuery, TdbDataSet, TdbLicense;

type
  TDataModule1 = class(TDataModule)
    TdbTable1: TTdbTable;
    DataSource1: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DataModule1: TDataModule1;
  TdbTable1: TTdbTable;
  
implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
 var dbfrm: string;
begin
 dbfrm := ExtractFilePath(ParamStr(0))+'db/db.tdbd';
 self.TdbTable1.Active := False;
 self.TdbTable1.DatabaseName := dbfrm;
 self.TdbTable1.TableName := 'pr';
 self.TdbTable1.Active := True;
 end;
end.

Compiliert auch ohne Fehler, nur die Daten werden im DB-Grid nicht angeziegt
Hab ich noch was fundamentales vergessen?