Criar um banco via Delphi

procedure CreateDataBase(const ADataBase: String);
var
  DataBase : TIBDatabase;
begin

  DataBase :=  TIBDatabase.Create( nil );
  try
    try
      with DataBase do
        begin
          DatabaseName := ADataSource;
          SQLDialect   := 3;
          Params.Clear;
          Params.Add(´USER ´´SYSDBA´´´);
          Params.Add(´PASSWORD ´´masterkey´´´);
          Params.Add(´PAGE_SIZE 16384´);
          Params.Add(´DEFAULT CHARACTER SET ISO8859_1´);
          CreateDatabase;
        end; // WITH CriaBanco DO
    finally
      FreeAndNil(DataBase);
    end;
  except
      raise Exception.Create(´ERROR: CreateDataBase´);
  end; 

end; 

procedure CreateTable(ACon: TSQLConnection; AScriptSQL: string);
var
   QRY: TSQLQuery;
begin
   QRY := TSQLQuery.Create(nil);
   try
      ACon.Open;
      QRY.SQLConnection := ACon;
      with QRY do
      begin
         Close;
         SQL.Clear;
         SQL.Text := AScriptSQL;
         ExecSQL();
      end;  
   finally
      ACon.Close;
      FreeAndNil(QRY);
   end;

function TableExist(ACon: TSQLConnection; ATableName: string): Boolean;
var
   List: TStrings;
   i   : integer;
begin
   Result := False;
   List   := TStringList.Create;
   try
      ACon.Open;
      ACon.GetTableNames(List);

      for i := 0 to List.Count - 1 do
      begin
         if UpperCase(List.Strings[i]) = UpperCase(ATableName) then
            Result := True;
      end;

   finally
      List.Free;
      ACon.Close;
   end;
end;

begin
   if not FileExists(´C:\teste.fdb´) then
      CreateDataBase(´C:\teste.fdb´);   

   // aqui você configura o objeto TSQLConnection para se conectar com o DataBase: ´C:\teste.fdb´

   if not TableExist(´TableName´) then
      CreateTable(SQLConnection, SeuScriptSQL);      
        
end;

   query.close;
   query.SQL.Text := ´create database ´ + DataBase;
   query.ExecSQL();