Insertar registros desde un query

[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;