怎样动态调用三层结构的dll(其中有數據模版,連接數據庫就沒回應,就像死机),请帮帮忙(100分)

怎样动态调用有包含三层结构的dll
请帮帮忙

proceduredo
Test;
// (H:THandle)
begin
//Application.Handle:=H;
{{with TForm1.Create(Application)do
try
ShowModal;
finally
Free;
end;
}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form1.Show;
//Application.ShowMainForm:=true;
//Application.Run;
end;

exports
dotest;

接受答案了.