自定义Component(继承TComponent),可是安装后,在控件栏上可以找到myComponent1,但是调用时却找不到函数ShowMsg???

Question

如题,源程序如下:
unit myComPonent;interfaceuses
  SysUtils, Classes,shellapi,Registry,Windows,Graphics,ExtCtrls;type  myComPonent1 = class(TComponent)
  public  end;
procedure Register;implementation//自定义函数:ShowMsg
procedure ShowMsg(msg:string);
begin
ShowMessage(Msg);
end;
procedure Register;
begin
  RegisterComponents('MyFirstComponent', [myComponent1]);
end;end.

Answer 1

unit myComPonent;interfaceuses
  SysUtils, Classes,shellapi,Registry,Windows,Graphics,ExtCtrls;type  myComPonent1 = class(TComponent)
  public
      procedure ShowMsg(msg:string);
  end;
procedure Register;implementation//自定义函数:ShowMsg
procedure myComPonent1ShowMsg(msg:string);
begin
ShowMessage(Msg);
end;
procedure Register;
begin
  RegisterComponents('MyFirstComponent', [myComponent1]);
end;end.

Answer 2

谢谢： DelphiBoy2003(一朵梨花压海棠,玉树临风胜潘安) 
终于明白了,不是我不声明函数啊,只是声明时提示Unsatisfied forward or external declaration: ’<Procedurename>’ 原来我在定义函数/过程时没有加上类名.原来如此,哈哈哈....