SQL_DMO问题，如何修改还原后的数据库文件路径

源码如下,可以正常还原.但无法指定还原后的数据库文件路径(如下注释所述).请问应该怎么实现呢

function TdbmSQLDMO.RestoreDB(DBName, RestoreFile, DBFile: string): Boolean;
var SQLRestore: _Restore;
begin
Result := True;
try
SQLRestore := coRestore.Create;
except
TdbmCommon.MsgBox('还原对象无法创建，请检查是否安装SQLSERVER或MSDE引擎！');
Result := false;
Exit;
end;

with SQLRestore do
begin
try
Files := RestoreFile;
ReplaceDatabase := true;
Database := DBName;
//****************************
DatabaseFiles := DBFile; //希望能让用户指定还原后的数据库路径,可是这样不起任何作用
//******************************
SQLRestore(FSQLServer)
except
on E: Exception do
begin
TdbmCommon.MsgBox(E.Message);
Result := false;
end;
end;
end;

end;