dll的调用问题(100分)

为什么 会出现：在第一次点击菜单调用程序时出现找不到dll程序错误；但第二次点击时则可以出现画面。
dll应该如何调用，才不会出现上面的错误？

你是怎么调用，贴点代码

对呀，你不贴出来，别人猜不到的

procedure ShowFrom(AddrDLL, ProcName: pchar; GADOConn: TADOConnection; AiLeft,
AiTop, AiWidth, AiHeight: integer;GListName,GListValue:TStringList); //陪ボ怠砰
type
fromcreate = procedure(AddrDLL, funcName: pchar; GADOConn: TADOConnection;
AiLeft, AiTop, AiWidth, AiHeight: integer;GListName,GListValue:TStringList);
var
fromhand: thandle;
pfunc: tfarproc;
begin
fromhand := LoadLibrary(AddrDLL);
try
if fromhand > 32 then
begin
pfunc := GetProcAddress(fromhand, ProcName);
fromcreate(pfunc)(AddrDLL, ProcName, GADOConn, AiLeft,
AiTop, AiWidth, AiHeight,GListName,GListValue);
end
else
ShowWarningMsg('叫浪琩?笲︽祘??琌???' + AddrDLL + 'ゅン?');
finally
freelibrary(fromhand);
end;
end;

ShowFrom('cimos1001/CIMOS1001.DLL', 'ShowCheckWordFrm',
Commondm.ADOConn, 0, 0, screen.Width, screen.Height-25,GListName,GListValue)