Dinamik dll yükleyememe problemi

[eyalin]

İyi akşamlar. Altta yazdığım kod ile bir dll i dinamik olarak çağırmak istiyorum fakat handle sürekli "0" olarak dönüyor ve kod işletilmeden functiondan çıkılıyor. Bir çok yerde dll çağırıyorum,kodu defalarca kontrol ettim açıkcası hata da bulamıyorum. Yardım ederseniz çok sevinirim.

Kod: Tümünü seç

Function denetimhesap(baglanti:TADOConnection;basvuru,musterisayisi:integer):double;
Type TDenetimiHesaplafunc=function(baglanti:TADOConnection;basvuru,musterisayisi:integer):double;
var
Handle:THandle;
DenetimiHesapla:TDenetimiHesaplafunc;
dllname:string;
begin
try
dllname:='ParentCalc.dll';
Handle:=LoadLibrary(Pchar(dllname));
   if handle<>0 then
       begin
       @DenetimiHesapla:= GetProcAddress(Handle,PChar('DenetimiHesapla'));
       if @DenetimiHesapla<>nil then
          begin
          Result:=DenetimiHesapla(dm1.ado1,basvuru,musterisayisi);
          end;
       end;
  Except on e:Exception do
    begin
    ShowMessage('Oluşan Hata:'+e.Message);
    end;
  end;
FreeLibrary(Handle);
end;

[unicorn64]

küçük bir ihtimal ama, dll dosyası, uygulamayla aynı klasörde olmayabilir mi acaba?