提示参数错误(20分)

我刚学com 写了个小东西
有个函数内有个参数 我定意为amsg 编译后 系统改为param1 但函数的参数还是amsg
然后又写的了一个程序调用这个com
每到一编译 系统提示参数错误 我奖amsg改为param 还提示参数错误
痛苦ing
function TTypeDllServer.Set_Msg(const [blue]Param1[/blue]: WideString): HResult;
begin
ShowMessage(Param1);
没有返回值 只显示一下
end;
加红处
我是这样调用的
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Project1_tlb;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Myi: ITypeDllServer;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Myi:= CoTypeDllServer.Create;
Myi.Set_Msg('hello');
end;
提示错误处
function TTypeDllServer.Set_Msg(const Param1: WideString): HResult;
begin
[red]Result := DefaultInterface.Set_Msg;[/red]
end;

没人帮忙吗？？