مشکل String در dll

سلام بچه ها
من یه DLL ساختم اینجوری:

Procedure GetMainBoardSerial(Var S:PChar);STDCall;

Var Bios:TSMBios;

Begin

Bios:=TsmBios.Create;

bios.GetInfo;

S:=PChar(Bios.MainBoardSerial);

Bios.Free;

End;

وقتی اونو اینجوری صدا میزنم خطای access violation میده:

procedure TForm1.Button1Click(Sender: TObject);

var s:PChar;

begin

GetMem(s,128);

GetMainBoardSerial(S);



FreeMem(s,128);



end;

رشته ای که برمیگردونه 10کاراکتر بیشتر نیست.
چیکار باید بکنم؟

[hps]

به جاى مقدار مستقیم دادن به متغیر S توى DLL از StrCopy استفاده کن، شاید مشکلت حل بشه. در ضمن براى استفاده از به جاى GetMem و FreeMem از StrNew و StrDispose استفاده کن.

قابل توجه مشکل اینجوری حل شد:

function GetMainBoardSerial:PChar;

Var Bios:TSMBios;

Begin

    Bios:=TsmBios.Create;

    bios.GetInfo;

    Result := StrAlloc(Length(Bios.MainBoardSerial)&  #41;;

    StrCopy(Result,PChar( Bios.MainBoardSerial));

   

    Bios.Free;

End;

[Mah]

سلام
همانطور که در برنامه نوشته شده در DLL از نوع String نمی توان استفاده کرد ولی به جای آن می توان:
1- از نوع PCHAR استفاده کرد .
2- همانطور که در توضیحات Wizard DLL وجود دارد از UNIT . MMBorland استفاده کنید .

همانطور که در توضیحات Wizard DLL وجود دارد از UNIT . MMBorland استفاده کنید

این بدترین راه حل ممکنه چون هم باید یونیت ShareMem رو به Uses اضافه کنی هم فایل Borland??.dll که اسمش کامل یادم نیست رو بزاری کنار برنامه ضمنا سرعتش هم خیلی کمه.
همونی که بالا نویشتم بهترین راه ممکنه