一个关于procedure 的问题

  { IHYVisualPlugin }
  IHYVisualPlugin = interface(IHYPlugin)
  ['{CF712FAF-8E6E-4055-90F4-51AE27AA1EC3}']
    function GetVisible: boolean;
    procedure SetVisible(Value: boolean);    procedure ShowParented(aParent: TWinControl);    procedure Hide;
    procedure Show;    property Visible: boolean read GetVisible write SetVisible;
  end;
上面是IHYVisualPlugin下面的main.pas内的
  private
    { Private declarations }
    fVisualPulgin : IHYVisualPlugin;procedure SetLoadModuleName(Const ModuleDllName, ModulePlugin : string; Tmp : IHYVisualPlugin);这里的tmp怎么没反应？
begin
  if HYModuleManager1.FindModule(ModuleDllName)=nil then
  begin
    hymodulemanager1.LoadModule(ModuleDllName);
  end;
     hymodulemanager1.CreateVisualPlugin(ModulePlugin, Tmp , Panel1); //这里只要tmp就不能创建，如果直接使用上面的fVisualPulgin就能正常创建
end；调用是
SetLoadModuleName(testdll, testplugin1, fVisualPulgin);