Create Table aus SQL-Script mit Parametern füttern

[Primus]

Hallo,

ich habe eine SQL-Script das eine Datenbank samt Index erstellen soll.
Dazu müsste ich dem Script in einer Query den Datenbanknamen als
Parameter übergeben.

Doch leider erhalten ich immer einen Fehler der mir sagt das der Datenbankname
nicht vorhanden ist.

Hier mal das SQL-Script:

SQL-Code:

Create Table :DBNAME (
 ID AutoInc,
 Flugnummer Integer,
 Datum Date,
 FlugzeugId Integer,
 PilotenID Integer,
 BegleiterId Integer,
 Startart Char(1),
 Startzeit Time,
 Landezeit Time,
 Blockon Time,
 Blockoff Time,
 Fluege Integer,
 StartortID Integer,
 LandeortID Integer,
 Bemerkungen Memo,
 Strecke Integer,
 Punkte Integer,
 KategorieID Integer,
 ViaID Integer,
 ZeitkatID Integer
);

Create Unique Index "UDX_ID" on :DBNAME( ID );
Create Index "IDX_DATE" on :DBNAME( Datum );

Und hier der Delphi-Code:

Delphi-Quellcode:

 Opendialog1.Title := 'Flugbuch erstellen';
 If Opendialog1.Execute = True then
  begin
   If Opendialog1.Filename <> '' then with DBMod do
    begin
     FlugbuchQuery.SQL.Clear;
     FlugbuchQuery.SQL.LoadFromFile(ExtractFilePath(Application.ExeName)+
               'SQL-Data\Create_Fluppbuch.sql');
     FlugbuchQuery.SQL.Insert(0,'Create Table "'+ExtractFileName(Opendialog1.Filename)+'" ');
     FlugbuchQuery.ParmbyName('DBNAME').AsString := Opendialog1.Filename;
     FlugbuchQuery.ExecSQL;
    end;
  end;

Vielen Dank schon mal vorab,

Gruss Lars