Fórum MDI #172988

Ola!
Estou criando uma aplicação MDI com packages e banco de dados, mas estou tendo problemas...
Acontece que quando eu fecho o MDIChild, ocorre um ´Acess Violation´!
Eis o código que estou usando...

# MDIFORM
procedure TFormMain.Button1Click(Sender:TObject);
var phm: HModule;
FShow: procedure(db: TIbDatabase; tr: TIbTransaction);
begin
phm:=LoadPackage(ExtractFilePath(ParamStr(0)) + ´\package\Package1.bpl´);
if phm <> 0 then
try
@FShow:=GetProcAddress(phm,´ShowMyChild´);
if Assigned(FShow) then
FShow(IBDatabase1,IBTransaction1)
else
ShowMessage (´Error!´);
finally
@FShow := nil;
UnloadPackage(phm);
end
else ShowMessage (´Package not found´);
end;

MDICHILD (PACKAGE)
procedure ShowMyChild(db: TIbDatabase; tr: TIbTransaction);
begin
try
Form1 := TForm1.Create(nil);
Form1.IBQuery1.Database := db;
Form1.IBQuery1.Transaction := tr;
Form1.IBQuery1.Open;
Form1.ShowModal;
Form1.IBQuery1.Close;
Form1.IBQuery1.Database := nil;
Form1.IBQuery1.Transaction := nil;
Form1.Release;
Form1 := nil;
except
Form1.Release;
Form1 := nil;
end;
end;

=============================
O erro ocorre depois do END do Button1Click

Alguma sugestão??!?!?