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

ZConnection.Database := 'xmaster.fdb';
ZConnection.Protocol := 'firebird-1.5';

if not FileExists('xmaster.fdb' then
begin
  ZConnection.Properties.Add('CreateNewDatabase=CREATE DATABASE ' +
                             QuotedStr('xmaster.fbd' + ' USER ' +
                             QuotedStr('sysdba') + ' PASSWORD ' + QuotedStr('masterkey') +
                             ' PAGE_SIZE 4096 DEFAULT CHARACTER SET ISO8859_1');
end;

ZConnection.User := 'sysdba';
ZConnection.Password := 'masterkey';

ZConnection.Connect;                    

1:
2:
3:

ZQuery.SQL.Clear;
ZQuery.SQL.ADD('CREATE TABLE test (a INTEGER)');
ZQuery.ExecSQL;                    

1:
2:
3:

ZQuery.SQL.Clear;
ZQuery.SQL.ADD('CREATE TABLE test (a CHAR(26))');
ZQuery.ExecSQL;