conexion a Firebird

[pmtzg]

hola amigos tengo el siguiente dilema

en una pequeña aplicacion tengo form1 y 1 datamodule llamados Dmdatos

si desde el form1 creao mando crear una base de datos me marcaba error

bueno pues puse el IBDatabase en el form1 y ya pude crear la base

pero si la deseo crear desde el form1 hasta el data module me tira el error de:

Código Delphi [-]
Access violation at adress  005cab7b in module  programa.exe read of  addresss 00000074

y ade ahi ya no paso

pero bueno si creo la base desde form1 como dije la crea sin problema pero ahora si deso abrir la misma base de datos ya creada me vuelve a sacar el mismo error

codigo para abrir base de datos ya creada :
me arroja el error desde la primera linea IBDatabase1.params.clear

es un procedure que lo mando llamar desde el form1

Código Delphi [-]
DmDatos.open_bdfb;

Código Delphi [-]
procedure TDmDatos.open_bdfb;                         { ABRE LA BD DATOS FIREBIRD}
begin
  IBDatabase1.Params.Clear;
  IBDatabase1.DatabaseName:=RutaBdFb;
  IBDatabase1.Params.Add('user_name=SYSDBA');
  IBDatabase1.Params.Add('password=masterkey');
  IBDatabase1.DefaultTransaction:=IBTran1;
  IBTran1.DefaultDatabase:=IBDatabase1;
  if not IBDatabase1.Connected then
    begin
      IBDatabase1.Connected:=true;
      IBDatabase1.Open;
    end;

  if not IBTran1.Active then
      IBTran1.Active:=true;

end;

me pueden hechar una manita

uso delphi 2007, firebird 2.1 y acceso con IBdatabase de interbase
la variable ruta tiene la ruta exacta donde crear

repito este codigo no me funciona en el datamodule pero si lo copia y lo hago desde el form1 si corre

gracias