Insertar registros desde un query

[escorpionrojo43]

Saludos Amigos. como que estoy muy activo en estos dias.

Necesito insertar los registros en un query.
Con este codigo me actualiza solo el primer registro, pero lo que quiero es que el campo 'Disponible' se actualize al valor almacenado en campo 'limite' en todos los registros que traiga el query

mi codigo es este.

Código Delphi [-]
with dm.qry_Control_numero, sql do
    begin
      Close;
      Clear;
      Add('SELECT * FROM Num_Controlados');
      Add('WHERE loteria = '+ Quotedstr(inttostr(combobox1.ItemIndex)));
      open;
      if not eof then
      begin
        edit;
        FieldByName('Disponible').AsInteger  := FieldByName('Limite').AsInteger;
        post;
  //      showmessage('Los Controles de Numeros han sido Reiniciado');
      end;
    first;
    end;