如何在FORM中调用DLL的FORM??(14分)

因为若所有FORM压在一个项目中,占内存太大,我知道有个办法可以将非主FORM做成DLL
这样只有用到该FORM才调用,这样节约内存!
我这里有一个样板,但只能调用一个DLL,有什么方法调多个!
dllname='Pdll.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
libah:thandle;
cGetDate:function(AHandle: THandle; ACaption: String):TDate; StdCall;
begin
libah:=LoadLibrary(dllname);
if libah=0 then
begin
showmessage('PDLL.dll 不存在');
exit;
end;
@cgetdate:=GetProcAddress(libah,'ShowFrm');
if @cgetdate<>nil then
edit1.Text:=DateToStr(cGetDate(Application.Handle, Caption))
else
showmessage('PDLL.dll 失败');

var
dllname : string = 'dll.dll';

用的时候如果改成别的dll,你就改一下。

多是要做一个MAINFORM然后调用不同的DLL文件,这样只是一个呀!
不会现个BUTTOM按下时赋值吧!

问题没有解决,但是还是分分罗!