用delphi调用vc写的dll出错？

下面是VC：
typedef struct plog
{
int log_id;//记录编号
char userName[20];//使用者
char ip[20];//使用IP
char content[50];//日志内容
}plog;

//添加使用记录
extern "C" __declspec(dllexport) void createLog(plog log);

delphi：
TDBPlog = record
  log_id:Integer;//记录编号
  userName:array[0..19] of Char;//使用者
  ip:array[0..19] of Char;//使用IP
  content:array[0..49] of Char;//日志内容
end;
PDBPlog = ^TDBPlog;

TDBCreateLog = procedure(log:TDBPlog);stdcall;

procedure TForm1.btn1Click(Sender: TObject);
var
  FDllHandle:HMODULE; 
  FCreateLog:TDBCreateLog;
  plog:TDBPlog;
begin
  FDllHandle := LoadLibrary('proxyData.dll');
  if FDllHandle = 0 then raise Exception.Create('数据库 DLL 加载失败');
  FCreateLog := GetProcAddress(FDllHandle,'createLog');
  plog.userName := '11';
  plog.ip := '192.168.1.199';
  plog.content := 'test';
　FCreateLog(plog); //数据有插入数据库 
end;//单击事件结束后提示出错

---

vc的dll中函数是这样的：
extern "C" __declspec(dllexport) void createLog(plog log)
{
CString log_ip;
CString user_name;
CStrin