fQRY.SQL.Clear;
  fQRY.SQL.Add('create table if not exists "'   fName   '"');
  fQRY.SQL.Add('(');
  fQRY.SQL.Add('ID char(12),');
  fQRY.SQL.Add('AID autoinc,');
  fQRY.SQL.Add('PID char(12),');
  fQRY.SQL.Add('TT char(1),');
  fQRY.SQL.Add('OZ char(15),');
  fQRY.SQL.Add('TEXTDAT char(150),');
  fQRY.SQL.Add('TEXTMEMO blob(0,1),');
  fQRY.SQL.Add('USB boolean');
  fQRY.SQL.Add('primary key (ID) compress dupbyte');
  fQRY.SQL.Add(');');
  fQRY.SQL.Add('create index if not exists OZ ON "'   fName   
'" (OZ)
    compress dupbyte;');
  fQRY.SQL.Add('create index if not exists PID ON "'   fName   
'" (PID)
    compress dupbyte');
  try
    fQRY.ExecSQL;
  except
  end;

  qryGK.SQL.Clear;
  for i := 0 to DBSiGeInfos.Count - 1 do
  begin
    qryGK.SQL.Add('select * from DB'   IntToStr(i));
    if i < DBSiGeInfos.Count - 1 then
      qryGK.SQL.Add('union all');
  end;
  try
    qryGK.Open;
  except
  end;