1:
2:
3:
4:

INSERT INTO ZS42
(NR,Auftragsnr,Auftragsart,Auftragsdatum,Erledigtbis,vorname,nachname,strasse,PLZ,Ort,Telefonnr,AUFTRAGSTEXTZS42,checknewZS42,offen,inwork,closed)
VALUES
(0,'TESTNR','Umzug','05.07.2003','11.07.2003','dfgdfg','sgdsdg','sdgsdfg',12345,'dsgdsgsgsg','sdgsdfgsg','DS21|sdfgsdgsdfgsfg,DS21|dgsdgsgs,ZS42|sdfgsfdgsdfgsgf',1, 1, 0, 0);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

procedure CreateBasket;                                                         // Die Postkörbe der Abteilungen erstellen
var
  abteilung : TStringList;
  i : integer;
begin
  abteilung := TStringList.Create;
  with IBDataModule.IBQueryCategory do begin
    Sql.Clear;
    Sql.Add('SELECT DISTINCT abteilung FROM auftrmgtconfig WHERE childnr>1;');
    Open;
    Active := True;
    while not EOF do begin
      abteilung.Add(Fields[0].AsString);
      next;
    end;
    Active := false;
  end;
  for i := 0 to abteilung.Count-1 do begin
    if SearchTable(abteilung[i],'bisbasket.gdb') = -1 then begin
      with IBDataModule.IBDBPostkorbQuery do begin
        Sql.Clear;
        Sql.Add('CREATE DOMAIN ' + abteilung[i] + 'counter AS SMALLINT;');
        ExecSql;
        Sql.Clear;
        Sql.Add('CREATE GENERATOR ' + abteilung[i] + 'AutoInc;');
        ExecSql;
        Sql.Clear;
        Sql.Add('SET GENERATOR ' + abteilung[i] + 'AutoInc TO 1;');
        ExecSql;
        Sql.Clear;
        Sql.Add('CREATE TABLE ' + abteilung[i] + ' (');
        Sql.Add('nr            ' + abteilung[i] + 'counter NOT NULL PRIMARY KEY,');
        Sql.Add('auftragsnr      VARCHAR(10),');
        Sql.Add('auftragsart     VARCHAR(20),');
        Sql.Add('auftragsdatum   VARCHAR(10),');
        Sql.Add('erledigtbis     VARCHAR(10),');
        Sql.Add('Vorname         VARCHAR(20),');
        Sql.Add('Nachname        VARCHAR(20),');
        Sql.Add('Strasse         VARCHAR(40),');
        Sql.Add('PLZ             INTEGER,');
        Sql.Add('Ort             VARCHAR(40),');
        Sql.Add('Telefonnr       VARCHAR(20),');
        Sql.Add('auftragstext' + abteilung[i] + ' BLOB(240,1),');
        Sql.Add('checknew' + abteilung[i] + ' INTEGER,');
        Sql.Add('offen           INTEGER,');
        Sql.Add('inwork          INTEGER,');
        Sql.Add('closed          INTEGER);');
        ExecSql;
        Sql.Clear;
        Sql.Add('  CREATE TRIGGER AutoInc'+ abteilung[i] + ' FOR ' + abteilung[i]);
        Sql.Add('  BEFORE INSERT AS');
        Sql.Add('  BEGIN');
        Sql.Add('    new.nr = gen_id(' + abteilung[i] + 'AutoInc, 1);');
        Sql.Add('  END');
        ExecSql;
        Sql.Clear;
        Sql.Add('CREATE VIEW status' + abteilung[i] + ' AS');
        Sql.Add('SELECT nr,checknew' + abteilung[i] + ',offen, inwork, closed ');
        Sql.Add(' FROM ' + abteilung[i] + ';');
        ExecSql;
      end;
    end;
  end;
end;					

1:

    blob:=IBDataModule.CreateOrderQuery.CreateBlobStream(IBDataModule.CreateOrderQuery.FieldByName('blobdata'),bmWrite);