1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  ProgPath, DBName, LoginName, PW: string;

begin
  ProgPath := ExtractFilePath(paramstr(0));

  DBName := ProgPath + 'TestDB.fdb';
  LoginName := 'USER';
  PW:= 'xxxxxx';

  Form1.Con1.Disconnect;
  Form1.Con1.Database:=DBName;
  Form1.Con1.Protocol :='Firebird-1.5';
  Form1.Con1.Properties.Add('CreateNewDatabase=CREATE DATABASE ' +
                            DBName + ' USER ' + QuotedStr(LoginName) +
                            ' PASSWORD ' + QuotedStr(PW) + 
                            ' PAGE_SIZE 4096 ' + 
                            ' DEFAULT CHARAcTER SET ISO8859_1');
  Form1.Con1.Connect;

End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

     try
        Form1.QPers.SQL.Clear;
        Form1.QPers.SQL.Add(cCreateDB1);
        Form1.QPers.ExecSQL;
      except
      else
        MessageDlg(Format('FEHLER!%sDie Tabelle DB1 konnte nicht angelegt werden!', [#13#10]), mtError, [mbCancel], 0);
      end;

      try
        Form1.QPers.SQL.Clear;
        Form1.QPers.SQL.Add(cCreateDB2);
        Form1.QPers.ExecSQL;
      except
      else
        MessageDlg(Format('FEHLER!%sDie Tabelle DB2 konnte nicht angelegt werden!', [#13#10]), mtError, [mbCancel], 0);
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const
  cCRLF = #13#10; // Zeilenvorschub..

  cCreateDB1 = 'CREATE TABLE Pers(' + cCRLF // Name der Datei
    + 'PersID PRIMARY KEY,'      + cCRLF 
    + 'Vorname     varchar(60),' + cCRLF // Text Länge 60
    + 'Name        varchar(60),' + cCRLF // Text Länge 60
    + 'Strasse     varchar(60),' + cCRLF // Text Länge 60
    + 'PLZ         varchar(5),'  + cCRLF // Text Länge 5
    + 'Ort         varchar(60),' + cCRLF // Text Länge 60
    + 'Tel1        varchar(40),' + cCRLF // Text Länge 40
    + 'Tel2        varchar(40),' + cCRLF // Text Länge 40
    + 'Markierung  varchar(60),' + cCRLF // Text Länge 60
    + 'Datum       DateTime,'    + cCRLF // Datum mit Zeit
    + 'Info        Memo)';               // Info                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

In den Trigger einbauen:
CREATE GENERATOR my_gen_id;
SELECT gen_id(my_gen_id,0) FROM...
SET GENERATOR my_gen_id TO [some_value];

Create Trigger autinc_id for new_one
active before insert position 0
AS
BEGIN
if(NEW.col1 IS NULL) THEN
NEW.col1=GEN_ID(my_gen_id,1);
END