Tem como fazer transação com o DBExpress? Tipo IBTransation

procedure TForm1.Button1Click(Sender: TObject);
var TD: TTransactionDesc;
begin
  try
    TD.TransactionID:= 1;
    TD.IsolationLevel:= xilReadCommited;
    SQLConnection1.StartTransaction(TD);
    SQLDataSet1.CommandText:= ´insert into CLIENTES(NOME,CIDADE,UF) values (:NOME,:CIDADE,:ESTADO)´;
    SQLDataSet1.ParamByName(´NOME´).AsString   := ´VINICIUS´;
    SQLDataSet1.ParamByName(´CIDADE´).AsString := ´BICAS´;
    SQLDataSet1.ParamByName(´ESTADO´).AsString := ´MG´;
    SQLDataSet1.ExecSQL;
    SQLConnection1.Commit(TD);
  except
    on E:Exception do
      begin
        SQLConnection1.Rollback(TD);  
        ShowMessage(Erro ao tentar incluir o registro : ´ + E.Message);
      end;
  end;
end;

var
  TudoOK: Boolean;
  Transacao: TTransactionDesc;
begin
  TudoOK:= False;
  Transacao.TransactionID:= 1;
  Transacao.IsolationLevel:=  xilReadCommitted;
  SQLConnection1.StartTransaction(Transacao);
  // Aplicando os updates
  if ClientDataSet1.ApplyUpdates(0) = 0 then
    if ClientDataSet2.ApplyUpdates(0) = 0 then
      if ClientDataSet3.ApplyUpdates(0) = 0 then
        if ClientDataSet4.ApplyUpdates(0) = 0 then
          TudoOK:= True;
  // Note que TudoOK só será true se não houver nenhum erro em nenhum dos Updates
  if TudoOK then
  begin
    SQLConnection1.Commit(Transacao);
    ShowMessage(´Atualizações OK.´);
  end
  else
  begin
    SQLConnection1.Rollback(Transacao);
    ShowMessage(´Ocorreram erros. Alterações descartadas.´);
  end;
end;