Insertar registros desde un query

[escorpionrojo43]

Empezado por Casimiro Notevi

¿Algo parecido a esto:?

Código Delphi [-]
dm.qry_control_numero.sql.text := 'update num_controlados set  disponible='+quotedstr(inttostr(combobox1.itemindex)))+
' where loteria='+sql.fieldbyname('limite').asstring;

Casimiro estoy probando lo que has puesto pero creo que no es lo que busco.
el query actual me trae los datos que necesito, el asunto es que a esos datos que me trae, quiero que el campo "disponible" se actualice con los datos que vinieron en campo "limite"

[escorpionrojo43]

Bueno Me auto respondo

el asunto es que tenia que pasar al siguiente registro lo hice cambiando el "if not eof then " por un "while not eof do" y un next despues de asignar el valor

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;
      while not eof do  // aqui
      begin
        edit;
        FieldByName('Disponible').AsInteger  := FieldByName('Limite').AsInteger;
        next;  // aqui
      end;
      showmessage('Los Controles de Numeros han sido Reiniciado');
      first;
    end;