Fórum problemas com função para delphi #412468

esta funçaõ esta me dando dor de cabeça, retirei a da revista n 84 do clube delphi, o sistema proposto era para atuaizar o banco de dados automaticamente, mas não funcionou graças a esta funçaõ

function TPatches.ConectarAoBanco: Boolean;
begin
try
if not Assigned(FConexao) then
begin
FConexao := TSqlConnection.Create(Application);
with FConexao do
begin
ConnectionName := INTERBASE;
DriverName := Interbase;
GetDriverFunc := getSQLDriverINTERBASE;
LibraryName := dbexpint.dll;
LoginPrompt := False;
Params.Clear;
Params.Add(DriverName=Interbase);
Params.Add(Database=127.0.0.1/3050:C:\Developer Delphi\Databases\Patches.fdb);
Params.Add(RoleName=RoleName);
Params.Add(User_Name=SYSDBA);
Params.Add(Password=masterkey);
Params.Add(ServerCharSet=);
Params.Add(SQLDialect=1);
Params.Add(BlobSize=-1);
Params.Add(CommitRetain=False);
Params.Add(WaitOnLocks=True);
Params.Add(ErrorResourceFile=);
Params.Add(LocaleCode=0000);
Params.Add(Interbase TransIsolation=ReadCommited);
Params.Add(Trim Char=False);
VendorLib := gds32.dll;
end;
end;
FConexao.Connected := True; ocorre o erro aqui nesta linha, ate aqui vai bem
Result := True;
except on E: Exception do
begin
MessageDlg(Ocorreu um erro ao conectar-se ao banco. + #13 +
E.Message, mtError, [mbOk], 0);
Result := False;
end;
end;
end;

consegui resolver mas não ficou d geito da revista, para resolver coloquei um componente sqlconnection no form, e na revista eles criam em modo de execução, atravez da função acina, ajudem-me a resolver o problema na função