hab ich auch eben gefunden aber trotzdem danke
aber bei:
cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)
sagt mir mein delphi 7 prof. das da kein = stehen darf sondern : aber das wär dann ja flasch und dann gibts auch nur fehler