delphi调用vc的dll的问题（函数返回值为char*)

我在vc的dll中定义了一个函数：
char* _stdcall Get_HardDriveSerialNumber()
{
return HardDriveSerialNumber;
}
该函数的功能是返回硬盘的某个参数。其中，HardDriveSerialNumber的值在dll内部获得。

然后我在delphi中这样调用：
var
Form1: TForm1;
function Get_HardDriveSerialNumber():pchar;stdcall;far;external 'read_disk.dll';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a:pchar;
begin
a:=Get_HardDriveSerialNumber();
edit1.Text:=a;
end;

按理说vc的char*和delphi的pchar应该是对应的啊，但是不知道为什么a的值为空