Código Delphi [-]
     if combo_vendedor.text ='' then
     begin
        MessageDlg('Ingrese el Código Vendedor', mtWarning, [mbOk],0);
        combo_vendedor.Setfocus;
        exit;
     end;

     if (edt_totalguia.Text ='') then
     begin
        MessageDlg('Debe Calcular el Valor Total de la Factura',mtWarning,[mbOk],0);
        btn_Calculo.SetFocus;
        exit;
     end;

     if Ingresar then
     begin
        Msg :='¿Desea Grabar el Ingreso de la Guía?';
        if MessageDlg(Msg, mtConfirmation,[mbyes, mbNo],0) = mrYes then
        begin
           if (opcion_pago.ItemIndex in [0]) then
           begin
              Msg :='Favor, confirmar la opción de Pago con el CLIENTE'+ #13 + '< CONTADO >'+ #13 +'Si está correcto oprima [Ok], de lo contrario presione [Cancel]';
              if MessageDlg(Msg, mtConfirmation,[mbOK, mbCancel],0) = mrCancel then
              Exit;
           end
           else
           begin
              Msg :='Favor, confirmar la opción de Pago con el CLIENTE '+ #13 + '< CRÉDITO >'+ #13 +'Si está correcto oprima [Ok], de lo contrario presione [Cancel]';
              if MessageDlg(Msg, mtConfirmation,[mbOK, mbCancel],0) = mrCancel then
              Exit;
           end;
           IngresarGuia;
           IngresarCorrelativo;
           lv_i := 1;
           while (lv_i <= grd_Detalle.RowCount -1) do
           begin
              IngresarDetalleGuia;
              ActualizarStockProducto;
              lv_i :=lv_i+1;
           end;
           MessageDlg('Guía de Despacho Ingresada Exitosamente.'+#13+'Ahora Deberá Imprimir.',mtInformation,[mbOk],0);
           btn_buscarguia.Enabled := False;
           btn_Nuevo.Enabled := False;
           btn_Imprimir.Enabled := True;
           btn_Grabar.Enabled := False;
           btn_calculo.Enabled := False;
           btn_Salir.Enabled := False;
           PrecioNormal := 0;
           PrecioOferta := 0;

        end;
     end;
end;

Código Delphi [-]
try
    if not(conexion.InTransaction) then conexion.BeginTrans;
    ingresarguia;
    ingresarcorrelativo;
    conexion.commit; //todo ha ido bien y confirmamos
except
    //Capturamos la excepcion y hacemos lo que queramos
    //Deshacemos la transaccion
    conexion.Rollback;
end;

Código Delphi [-]
Conexion.StartTransaction;
try
  HacerTodoLoQueSeQuiera;
  Conexion.Commit;
except
  Conexion.Rollback;
  raise; //esta línea eleva nuevamente la excepción original después del rollback
end;