SQLite: не работает Update

   FD_Query := TFDQuery.Create(nil);
 
   FDConnection.Params.Values['Database'] := ExeDir+'ALL_VK_ID.db';
   FDConnection.Params.Values['Synchronous'] := 'Normal';
   FDConnection.Params.Values['DriverID'] := 'SQLite';
   FDConnection.Params.Values['OpenMode'] := 'ReadWrite';
 
   FDConnection.Params.SaveToFile(ExeDir+'SQLITE.INI'); // для отладки, что бы прочитать с какими параметрами я работаю
 
   FD_Query.Connection := FDConnection;
   FD_Query.SQL.Clear;
 
   FD_Query.SQL.Text := 'UPDATE `VK_ID` SET `IMAGE_STATUS` = ''true''' ;
   FD_Query.ExecSQL;

Database=D:\...\ALL_VK_ID.db
Synchronous=Normal
LockingMode=Normal
DriverID=SQLite
OpenMode=ReadWrite

procedure TMainForm.Sample(var ACountry, ACity, Aid: string);
var
 FD_Query : TFDQuery;
 Key      : string;
begin
 try
   FD_Query := TFDQuery.Create(nil);
 
   FDConnection.Params.Values['Database'] := ExeDir+'ALL_VK_ID.db';
   FDConnection.Params.Values['Synchronous'] := 'Normal';
   FDConnection.Params.Values['DriverID'] := 'SQLite';
   FDConnection.Params.Values['OpenMode'] := 'ReadWrite';
 
   FDConnection.Params.SaveToFile(ExeDir+'SQLITE.INI');
 
   FD_Query.Connection := FDConnection;
   FD_Query.SQL.Clear;
 
   FD_Query.SQL.Text := 'UPDATE `VK_ID` SET `IMAGE_STATUS` = ''true''' ;
   FD_Query.ExecSQL;
 
   FD_Query.SQL.Clear;
   FD_Query.SQL.Add(' select * from `VK_ID` where  `VK_ID`.`IMAGE_STATUS` = ''false'' limit 1;');
   if FD_Query.OpenOrExecute then
   begin
     FD_Query.First;
     ACountry := FD_Query.FieldByName('COUNTRY').AsString;
     ACity :=    FD_Query.FieldByName('CITY').AsString;
     Aid :=      FD_Query.FieldByName('ID').AsString;
     Key :=      FD_Query.FieldByName('KEY').AsString;
     FDConnection.Close;
 
     // UPDATE VK_ID SET IMAGE_STATUS = 'IMAGE_STATUS' WHERE "KEY" = 1
   end;
 finally
   FD_Query.Free;
 end;
end;

 FD_Query.SQL.Text := 'UPDATE `VK_ID` SET `IMAGE_STATUS` = ''true''' ;
 FD_Query.ExecSQL;