// 重整InterBase(先backup)
with IBBackupService1 do begin
     ServerName:= dComputerName;   // client端的電腦名稱
     Active:= True;
     try
        Verbose:= True;
        Options:= [NonTransportable, IgnoreLimbo];
        DatabaseName:= ibName;   // 原來的InterBase檔來源(含完整路徑)
        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;   // 欲回存的檔案(含完整路徑)
        BackupFile.Text:= bakFile;  // 之前的備份檔
        ServiceStart;
        while not Eof do GetNextLine;
     finally
        Active:= False;
     end;
end;