Delphi与C dll通信(参数)

我怀疑我对调用的参数做错了.
此刻我有2个问题,但我认为它们与彼此有关.

1)
首先使用DLL调用：
来自.h文件：

extern "C" {

__declspec(dllexport) HRESULT Startup(char* version);

}

这个调用应该初始化DLL并给我DLL的版本. HRESULT应为0,版本指针应包含版本.

我的Delphi代码：

function Startup(var version: Pchar): HRESULT; cdecl; stdcall; external 'myDLL.dll';

和实际的电话：

var
  res : HRESULT;
  Name1 : PChar;
  test : AnsiString;
  buf2: array [0..20] of AnsiChar;
begin
  FillChar(buf2,20,0);
  Name1:= @buf2[0];
  res := RdmStartup(Name1);
//Here res = 0,but the Name1 stays empty,and the buf2 still contains 0.
end;

但结果是0,呼叫成功.

然后我的第二个问题：我需要调用DLL中的一个函数来打开一个COM端口.

.h：

extern "C" {
__declspec(dllexport) HRESULT Open(HWND hWnd,int Port,DWORD BaudRate,DWORD Interval); 
}

我的德尔福宣布：

function Open(hWnd: HWND;Port : integer;BaudRate:LongInt;Interval:LongInt): HRESULT; cdecl; stdcall; external 'myDLL.dll';

我称之为：

res:= Open(self.Handle,5,115200,500);

在这里,我从res变量中的DLL返回故障.
我也有DLL的来源,我得到的失败来自DLL正在检查参数是否有效的部分,如果它们有效则会继续,否则返回我当前得到的错误.

它正在检查的事情：

if(hWnd == NULL)
{
    return false;
}
if(BaudRate != 2400 && BaudRate != 9600 && BaudRate != 38400 && BaudRate != 115200)
{
    return false;
} 
if(IntervalTimer < 300)
{
    return false;
}
std::string strPortName = lexical_cast<std::string>( format("COM%d") % Port);
std::string strPortName(lpPortName.c_str());
std::string::size_type loci = strPortName.find("COM");
if( loci == std::string::npos )
{
    return false;
}
return true;

以上其中一个在我的调用中返回false,因为如果此函数的结果为false,则DLL会给出我当前在结果中得到的错误.
有谁知道我做错了什么？

我已经尝试了很多类型的组合到最后我坚持转换我发现在：http://www.drbob42.com/delphi/headconv.htm
我也尝试了不同的方法来读取char指针,但所有这些都失败了……

所以在这个阶段,我知道我已经成功地与DLL通信,因为我正在为2个调用获得不同的HRESULT,但我怀疑我的参数不像应该的那样工作.

我正在使用Delphi 2007,而C DLL是使用VS2010构建的.