with IBBackupService1 do begin
     ServerName:= dComputerName;  // 電腦名稱
     Active:= True;
     try
        Verbose:= True;
        Options:= [NonTransportable, IgnoreLimbo];
        DatabaseName:= ibName;   // gb檔完整路徑, 含computername
        BackupFile.Clear;
        BackupFile.Add(bakFile);  // bakFile 欲備份的檔名 
        ServiceStart;
        while not Eof do GetNextLine;
     finally
        Active:= False;
     end;
end;    //回存
with IBRestoreService1 do begin
     ServerName:= dComputerName;
     Active:= True;
     try
        Verbose:= True;
        Options:= [Replace, UseAllSpace];
        PageBuffers:= 3000;
        PageSize:= 4096;
        DatabaseName.Text:= rstFile;  // rstfile 欲回存的檔案
        BackupFile.Text:= bakFile;    // bakFile 原備份檔案
        ServiceStart;
        while not Eof do GetNextLine;
     finally
        Active:= False;
     end;
end;