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