// 重整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;    建議回存檔案時, 請不要回存到原來的InterBase檔, 最好採用
回存到其他地方, 在回存成功時再用copyfile丟回去
試試看, 可以減少 20-35%的大小!