Как сделать Update данных выбранных с помощью Select

procedure TForm1.Button4Click(Sender: TObject);
var
    ret:string[30];
begin
    ret:=InputBox('Выборка информации из БД',
                 'Введите название книги и щелкните на OK.','');
    if ret <> ''
    then
       begin
         with form3.Query1 do
         begin
           Close;
           SQL.Clear;
 
           SQL.Add('SELECT   * ');
           SQL.Add('FROM ':STANDARD2:base.db'');
           SQL.Add('WHERE');
           SQL.Add('('книга' = ''+ ret + '')');
           SQL.Add('ORDER BY год');
           Open;
         end;
          Form1.DataSource1.DataSet := Query1;
         end;
     end;

Query.close;
Query.CachedUpdates:=true;
Query.UpdateObject :=UpdateSQL;
Query.SQL:='Select * from MyTbl 
            where чего_нибудь    
            Order By любое_поле'
Query.open;
------------------------------
UpdateSQL.DeleteSQL:='delete from MyTbl where  Id = :OLD_Id'
UpdateSQL.InsertSQL:='insert into MyTbl (Id, Name)
                                 values (:Id, :Name)'
UpdateSQL.ModifySQL:='update MyTbl
                      set Id = :Id,
                          Name = :Name
                      where Id = :OLD_Id'

procedure TForm1.QueryAfterPost(DataSet: TDataSet);
begin
Query.ApplyUpdates;
end;