Fórum Erro ao tentar criar banco de Dados #324801

var DataBase : TIBDatabase; 
begin 
  DataBase :=  TIBDatabase.Create( nil ); 
  try 
    try 
      with DataBase do 
        begin 
          DatabaseName := ´\\192.168.0.1:\AMBIENTES\BANCO.FDB´; 
          SQLDialect   := 3; 
          Params.Clear; 
          Params.Add(´USER ´´SYSDBA´´´); 
          Params.Add(´PASSWORD ´´masterkey´´´); 
          Params.Add(´PAGE_SIZE 4096´); 
          Params.Add(´DEFAULT CHARACTER SET ISO8859_1´); 
          CreateDatabase; 
        end; // WITH CriaBanco DO 
    finally 
      FreeAndNil( DataBase ); 
    end; 
  except 
    on E: Exception do 
      begin 
        Application.MessageBox( pChar( E.Message ), 
                          ´Abertura de Processamento´, MB_OK+MB_ICONERROR); 
        Abort; 
      end; 
  end; // try 
end; // procedure CreateDataBase(const DataBaseName: String);