[Gogolinsky]

Разобрался

Код:

procedure TForm5.Button11Click(Sender: TObject);
begin
 DM.ADOConnection1.BeginTrans;
  try
   with DM.ADOQuery1 do
    begin
     Active:=False;
     SQL.Clear;
     SQL.Add('INSERT INTO books');
     SQL.Add('VALUES ("Все о перцах", "Красный", 190)');
     ExecSQL;
    end;
   DM.ADOConnection1.CommitTrans;
  except
   ShowMessage('Сбой');
   DM.ADOConnection1.RollbackTrans;
  end;
end;