I redid the test with Version 5.5.5 [Build 2152] and get the same problem.

if I change the SQL to bellow, works fine:
Q.SQL.Text := 'UPDATE ANY_TABLE SET ID = 2 WHERE ID = 1';