Fórum Criação de Database #50542

Colegas,

Estou criando dinamicamente um database para a minha aplicação. Estou usando um exemplo que veio na edição 36 da revista Clube Delphi e obviamente está funcionando perfeitamente, porém tive a necessidade de incluir uma definição de Charset para este banco, escolhi o Win1252 que é o mais apropriado para o português, e a rotina agora da erro na criação. Abaixo está a rotina, eu só inclui ´DEFAULT CHARACTER SET WIN1252´ e dá erro de sintaxe, alguém sabe pq e como eu posso na criação definir um charset padrão?

Obs : estou utilizando o Firebird 1.5

function CreateDatabase(DBName, User, Pswd: string) : boolean;
var
status: array[1..19] of longint;
db, tran: plongint;
rslt: longint;
BaseSQL: string;
begin
//Operadores do Database e Transaction devem ser nil para chamar CREATE DATABASE
db := nil;
tran := nil;

//--- Cria o Banco de Dados especificado ---
BaseSQL := ´CREATE DATABASE ´´ + DBName + ´´ USER ´´ + User + ´´ PASSWORD ´ +
´´´ + Pswd + ´´´ + ´ DEFAULT CHARACTER SET WIN1252´;
rslt := isc_dsql_execute_immediate(@status, db, tran, 0, PChar(BaseSQL), nDialect, nil);
if rslt <> 0 then
raise EDatabaseError.Create(´Erro criando o Banco de Dados - ´ +
IntToStr(rslt) + #1013 + FormulateError(rslt, @status));

//--- Derruba a conexão para o Banco de dados recém criado ---
rslt := isc_detach_database(@status, db);
if rslt <> 0 then
raise EDatabaseError.Create(´Erro desconectando Banco de Dados!´ +
IntToStr(rslt) + 1013 + FormulateError(rslt, @status));
Result := (rslt = 0);
end; // CreateDatabases