在Delphi 7中覆盖组件的方法？

unit MyOleContainer;

interface

uses
    Windows,OleCtnrs;

type
  TOleContainer = class(OleCtnrs.TOleContainer)
  private
    function OnShowWindow(fShow: BOOL): HResult; stdcall; override;
  end;

implementation

function TOleContainer.OnShowWindow(fShow: BOOL): HResult;
begin
   Result := S_OK;
end;

end.

但这不会编译给出以下错误：[错误] MyOleContainer.pas(11)：方法或属性后不允许字段定义为什么？

编辑：

您能解释一下如何“声明IOleClientSite的实现,继承自TOleContainer并隐藏方法OnShowWindow […]使用TOleContainer作为IOleClientSite”？

EDIT2：

这是你的意思吗？

TMyContainer = class(TOleContainer,IOleClientSite)
private 
   FIOleClientSite: IOleClientSite;
   function SaveObject: HResult; stdcall;
   ...

constructor TMyContainer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Self.OleObjectInterface.GetClientSite(FIOleClientSite);
end;

function TMyContainer.SaveObject: HResult;
begin
  Result := FIOleClientSite.SaveObject;
end;

...