请问下面代码为什么会报错 ( 积分: 100 )

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;
type
IMalloc = interface(IInterface)
['{35A10CA3-EC73-49B8-A0EC-7ACF836DA0FB}']
procedure GetBillNO(const BillType: WideString;
out BillNO: WideString);
stdcall;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;

const IID_IMISServer: TGUID = '{25A151F2-3C94-4CE9-868E-8C1A9AAA4670}';
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var kk: IMalloc;
BillNO:WideString;
begin
kk:=CreateRemoteComObject('127.0.0.1',IID_IMISServer) as IMalloc ;
kk.GetBillNO('请货单',BillNO);
kk:=nil;
end;

end.