컴파일하면 "invalid floating point error" 메세지가 나오는데

전혀 무엇이 잘못되었는지 모르겠어요.

고수님들께서 봐주시고 답을 구했으면 합니다.

지금 제가 외국에 출장중인데 이문제가 해결않되면 돌아가질 못해요...

----------------------

// C++헤더



#define DllExport __declspec(dllexport)



typedef long TbxStatus;



DllExport TbxStatus TbxDcOpen(int nDevNum, HANDLE* phTbx);



------------------------

// Delphi import routine

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



function TbxDcOpen(nDevNum: integer; var phTbx: THandle): integer; cdecl;



var

Form1: TForm1;

hTbx: THandle;

status: integer;



implementation



{$R *.DFM}



function TbxDcOpen; external 'TbxDll.dll'; cdecl;



procedure TForm1.Button1Click(Sender: TObject);

begin

status := TbxDcOpen(0, hTbx);

if status <> 0 then Memo1.Lines.Add('DPS TbxDcOpen failed!')

else Memo1.Lines.Add('DPS TbxDcOpen successfully!');

end;



end.