Lo conseguí como bien decia el ilustrisimo señor Al González, he tenido que realizar lo siguiente:
Código Delphi
[-]procedure TPruebaFirebird.FIBDataSetProviderTurnosAfterApplyUpdates(
Sender: TObject; var OwnerData: OleVariant);
begin
if FIBTransactionTurnos.InTransaction then
begin
FIBTransactionTurnos.Commit;
end;
end;
Gracias a vosotros y el magnifico libro la cara oculta de delphi 6 lo conseguí.
Repito ¡GRACIA!