求救，关于URLDOWNLOADFILE的接口回调函数的问题~

我现在通过URLDOWNLOADFILE的接口回调函数，来显示进度，但是我只要用到
IBindStatusCallback.OnProgress函数,我的用法是在  TFormImage1 = class(TForm, IBindStatusCallback)
     ......................
  public
    function OnProgress(ulProgress: Cardinal; ulProgressMax: Cardinal;
      ulStatusCode: Cardinal; szStatusText: PWideChar): HRESULT; stdcall;
但是在FORM申明要实现该接口,就必须把该接口的函数全部申明,
有没有更好的办法,我现在只需要用到OnProgress函数
现在我是把接口的函数全部申明了
在实现函数的具体代码是我只是简单的把返回值至为0..但是这样的话,程序就卡死了,不能实现功能...我现在该怎么做呢?function TFormImage1.GetBindInfo(out grfBINDF: Cardinal;
      var bindinfo: _tagBINDINFO): HRESULT;
begin
  result:= 0;
end;
function TFormImage1.GetPriority(out nPriority): HRESULT;
begin
  result:= 0;
end;function TFormImage1.OnDataAvailable(grfBSCF: Cardinal; dwSize: Cardinal;
      formatetc: PFormatEtc; stgmed: PStgMedium): HRESULT;
begin
  result:= 0;
end;function TFormImage1.OnLowResource(reserved: Cardinal): HRESULT;
begin
  result:= 0;
end;function TFormImage1.OnObjectAvailable(const iid: TGUID;
      punk: IInterface): HRESULT;
begin
  result:= 0;
end;function TFormImage1.OnStartBinding(dwReserved: Cardinal; pib: IBinding): HRESULT;
begin
  result:= 0;
end;function TFormImage1.OnStopBinding(hresult: HRESULT; szError: PWideChar): HRESULT;
begin
  result:= 0;
end;