Problema en bucle

[epuigdef]

Prueba esto:

Código Delphi [-]
DataModule_Fact_Albar.QueryAlb.first;
with DataModule_Fact_Albar do
begin 
while not(Query_Alb.Eof) do
begin
Query_AlbConvertido.Edit;
Query_AlbConvertido.value:='SI';        
Query_AlbConevertido.post;
Query_AlbConvertido.Next;


end;
end;

Un saludo

Edu