关于dll（动态链接库）(20分)

http://www.my2000.biz/temp1/DLL-2.rar
大家帮我看看，这个dll为什么在关闭的时候会报错啊

function mycolor(col:longint):longint;stdcall;
var f: TForm1;
r,g,b:integer;
begin
f:=Tform1.Create(nil);
f.panel1.Color:=col;
f.edit1.Text:=inttostr(f.panel1.Color);
b:=(col and $00ff0000) shr 16;
g:=(col and $0000ff00) shr 8;
r:=(col and $000000ff);
f.ScrollBar1.Position:=r;
f.ScrollBar2.Position:=g;
f.ScrollBar3.Position:=b;
result:=color1;
f.showmodal;
freeandnil(f);
end;

但用Project1.exe打开，然后点“调出”后关闭窗口后还会报错,

你看看是不是DLL里的这个FORM没有被真的释放。
f:=Tform1.Create(Self);看看。。
freeandnil(f);//？？？？？？？？？？这个是新版本DELPHI新有的函数吗？我还再用D5；

非常感谢两位,现在我调用已经可以了，但现在在form1中放入数据库的基本构件后就会报错，那是什么原因啊
freeandnil(f);//
这个可以的啊

多人接受答案了。