diff --git a/packages/fcl-db/src/sqlite/customsqliteds.pas b/packages/fcl-db/src/sqlite/customsqliteds.pas
index 8f8cad3fb0..cb251884fd 100644
--- a/packages/fcl-db/src/sqlite/customsqliteds.pas
+++ b/packages/fcl-db/src/sqlite/customsqliteds.pas
@@ -1442,6 +1442,8 @@ begin
   if FSqliteHandle = nil then
     GetSqliteHandle;
   FReturnCode := SqliteExec(PChar(FSQLList.Text), nil, nil);
+  if FReturnCode <> SQLITE_OK then
+    DatabaseError(ReturnString, Self);
 end;
 
 procedure TCustomSqliteDataset.ExecSQL;