[急]SQLDMO带进度条恢复数据库的问题

为了实现恢复数据库带进度条，我在我的程序里声明实现SQLDMO的RestoreSink接口。我在SQLDMO_TLB.pas单元里也找到了这个接口的描述：

SQLDMO_TLB.pas
// *********************************************************************//
// Interface: RestoreSink
// Flags: (256) OleAutomation
// GUID: {10023206-E260-11CF-AE68-00AA004A34D5}
// *********************************************************************//
RestoreSink = interface(IUnknown)
['{10023206-E260-11CF-AE68-00AA004A34D5}']
function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
function NextMedia(const Message: WideString): HResult; stdcall;
function Complete(const Message: WideString): HResult; stdcall;
end;



我在自己的程序里声明此接口如下：
type
TResoreSink=class(TInterfacedobject,RestoreSink)
function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
function NextMedia(const Message: WideString): HResult; stdcall;
function Complete(const Message: WideString): HResult; stdcall;
end;

但在编译程序的时候提示：
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TResoreSink.PercentComplete'
[Error] Unit1.pas(16): Unsatisfied forward or external declaration: 'TResoreSink.NextMedia'
[Error] Unit1.pas(17): Unsatisfied forward or external declaration: 'TResoreSink.Complete'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


注：我的程序里已经实现了backupsink接口，在没有加RestoreSink接口时测试没有问题。
type
TBackupSink=class(TInterfacedobject,backupsink)//实现接口
function PercentComplete(const Message: WideString; Percent: Integer): HResult; stdcall;
function NextMedia(const Message: WideString): HResult; stdcall;
function Complete(const Message: WideString): HResult; stdcall;
end;


有谁遇到过这个问题？哪位大侠帮帮忙。谢谢了！！！