خطا در هنگام فراخوانی dll

با سلام خدمت دوستان.
من در برنامه خودم از یک dll استفاده م یکنم که به مشکل بر خوردم. اگر این dll را فقط به صورت زیر فراخوانی کنم مشکلی پیش نمی آید.

کد:

---


function printnormal:ShortString;
    external 'persian.dll';

---

ولی اگر در قسمتی از برنامه که مثل زیر از این dll استفاده کنم . به مشکل بر می خورم.

کد:

---

Form2.ADOCommand1.CommandText:='insert into taxi_driver values('''+Edit1.Text+''','''+Edit2.Text+''','''+Memo1.Text+''',:n,'''+Edit3.Text+''','''+printnormal+''')';

---

خطایی که می دهد این است.

کد:

---


the procedure entry point printnormal could not be located in the dynamic link library persian.dll

---

مشکل کار کجاست. ممنون می شl کمک کنید.

سلام
من که با مشکل بر خورد نکردم تابع من به صورت زیر بود

کد:

---

library Project1

uses
  SysUtils,
  Classes;

{$R *.res}

function PrintNormal:ShortString;
begin
  Result:='Run Demo DLL';
end;

  exports
    Printnormal;

begin
end.

---

با سلام خدمت دوستان.
مشکل نمی دونم چی بود ولی این بود که وقتی دیکته‌ی دوست عزیز رو نوشتم و هیچ تغییری دیگه ای ندادم مشکل حل شد.