DLL中显示模式窗体

要把一个Form编译进DLL，这个Form必须要自己创建和释放。

由于源代码分为几个部分，这里写下dll的关键代码：

function showform(handle1:THandle):Boolean;stdcall;
var
form3:TForm1;
begin
Result:=True;
form3:=TForm1.Create(nil);
Application.Handle:=handle1;

try
form3.ShowModal;
finally
form3.Free;
end;

end;

------------------------------------------------------