delphi动态调用dll窗体

//声明
TShowForm=Function (AHandle:THandle;ACaption:Pchar):Boolean;Stdcall;
//调用
procedure TForm1.N5Click(Sender: TObject); 
   var mainfrm,DllForm:THandle; 
         ShowForm:TShowForm; 
begin 
     mainfrm:=Form1.Handle; 
     DllForm:=LoadLibrary('JSJ.dll'); 
    Try 
    begin 
        if DllForm<>0 then 
         begin 
           @ShowForm:=GetProcAddress(DllForm,'ShowForm'); 
           ShowForm(mainfrm,'进售价'); 
        end 
        else 
        begin 
            RaiseLastWin32Error; 
        end; 
   end; 
   Finally 
       FreeLibrary(DllForm); 
   end; 
end;

//dll动态链接库

Function ShowForm(AHandle:THandle;ACaption:Pchar):Boolean;StdCall; 
     var AForm:TForm1; 
begin 
     Result:=False; 
     Application.Handle:=AHandle; 
     AForm:=TForm1.Create(Application); 
     Try 
         Aform.Caption:=ACaption; 
         AForm.ShowModal; 
         Result:=True; 
     Finally 
         AForm.Free; 
    end; 
end; 
Exports 
     ShowForm; 
begin 
end.