diff --git a/packages/fcl-web/src/restbridge/sqldbrestbridge.pp b/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
index 69f8e0942e..c15d97a972 100644
--- a/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
+++ b/packages/fcl-web/src/restbridge/sqldbrestbridge.pp
@@ -1194,6 +1194,8 @@ begin
       roPut : R:=FBeforePut;
       roPost : R:=FBeforePost;
       roDelete : R:=FBeforeDelete;
+    else
+      R:=Nil;
     end
   else
     Case IO.Operation of
@@ -1201,6 +1203,8 @@ begin
       roPut : R:=FAfterPut;
       roPost : R:=FAfterPost;
       roDelete : R:=FAfterDelete;
+    else
+      R:=Nil;
     end;
   If Assigned(R) then
     R(Self,IO.Connection,IO.Resource)
@@ -1375,6 +1379,8 @@ begin
       rftDate : FFormat.AsString:=FStrings.GetRestString(rpDateFormat);
       rftDateTime : FFormat.AsString:=FStrings.GetRestString(rpDatetimeFormat);
       rftTime : FFormat.AsString:=FStrings.GetRestString(rpTimeFormat);
+    else
+      ;
     end;
     for O in TRestFieldOption do
       FOptions[O].AsBoolean:=O in F.Options;
@@ -1743,6 +1749,7 @@ begin
   finally
     IO.SetConn(Nil,Nil);
     DoneSQLConnection(aConnection,Conn,Tr);
+    H.Free;
   end;
 end;