error al restaurar la base de datos

[mikylin]

holasss:
realice una sistema de almacenes, mi base de datos esta Sql Server 2000 y mi lenguaje de programacion es Delphi 7

esta es el procedimiento almacenado que realice en Sql para sacar la copia de seguridad

Código SQL [-]
 
CREATE PROC COPIASEGURIDA
AS
BACKUP DATABASE almacenmon TO DISK = 'D:\MIKY\COPIA.BAK'

Y con este codigo ejecuto desde delphi

Código Delphi [-]
 
with datamodule1.copiaseguridad do begin
if active=true then active:=false;prepare;
  execproc; active:=true;
end;

Este es mi proc alm para restaurar

Código SQL [-]
 
CREATE PROC RESTAURARCOPIASEGURIDAD
AS
    RESTORE DATABASE almacenmon FROM DISK = 'D:\MIKY\COPIA.BAK'

Y con esto ejecuto desde delphi

Código Delphi [-]
 
with datamodule1.RESTAURARCOPIA do begin
     if active=true then active:=false;prepare;
     
     execproc; active:=true;
    end;

una manito muchachos por favor.