请教高手关于delphi中的一个问题

首先我是用delphi写了一个dll ，导出一个函数，然后delphi写的程序中调用这个导出的函数，通过pchar类型，通过函数传参数得到返回值。但是传出来的总是乱码？

dll中函数是这样写的：

声明：

function checkdll(temp1 : string; temp2:pchar ):Integer ;

实现

function checkdll;

const title = 'dfdf' ;

var

HsEdit1: THsEdit;

aa : Integer ;

str : string ;

bb :pchar ;

begin

Edit1 := TEdit.Create(nil);

Edit1.Text := temp1;

str := Edit1.Text ;

temp2 := pchar(str) ;

Edit1.Free ;

Result := 15 ;

end;

导出函数

uses

SysUtils,

Classes,

Testfunction in 'Testfunction.pas' {Form1},

dllunit in 'dllunit.pas';

{$R *.res}

exports

checkdll ;

调用

type

Tcheck = Function(str : string ; str2 : pchar ): Integer ; stdcall ;

procedure TForm2.btn1Click(Sender: TObject);

var

dll :THandle ;

p : Tcheck ;

cc : pchar ;

bb : Integer;

begin

dll := LoadLibrary(pchar('TestDll.dll')) ;

if dll <> 0 then

begin

@p := GetProcAddress(dll ,'checkdll') ;

if (@p <> nil) then

begin

GetMem(cc , 256) ;

bb := p(edt1.Text , cc) ;

edt2.Text := cc ;

end ;

end;

FreeMem(cc);

FreeLibrary(dll);

end;

这个问题该怎么解决啊？