problemas con el el .Edit: qryCONSULTA.Edit

[McRose]

buenas, estoy teniendo un problema que no estoy pudiendo ubicar

Código Delphi [-]
{al comenzar el formulario hago esto:}
  dsCONSULTA.close;
  qyCONSULTA.SQL.Clear;
  qyCONSULTA.SQL.Add( 'SELECT * FROM PRODUCCION' );
  qyCONSULTA.SQL.Add( 'WHERE EMPRESA=0 ' );
  qyCONSULTA.SQL.Add( '          AND ID_REG=0 ' );
  qyCONSULTA.SQL.Add( '          AND BORRADO=0 ' );
  qyCONSULTA.SQL.Add( 'ORDER BY ' );
  qyCONSULTA.SQL.Add( '          EMPRESA' );
  qyCONSULTA.DataSet.Open;
  
{luego, en un ciclo, lo cargo de esta manera:}
  dsCONSULTA.DataSet.Append;
  dsCONSULTA.DataSet.FieldByName('EMPRESA').Value := pEmpresa;
  dsCONSULTA.DataSet.FieldByName('ID_REG').Value := pID_REG;
  dsCONSULTA.DataSet.FieldByName('ORDEN').Value := pOrden;
  dsCONSULTA.DataSet.FieldByName('ITEM').Value :=  pItem;
  dsCONSULTA.DataSet.FieldByName('A_UTILIZAR').Value := pAUtilizar;
  dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := 0;
  dsCONSULTA.DataSet.Post;
  
  
{después de hacer un control de entrada de la cantidad quiero hacer esto:}
  qyCONSULTA.Edit;
  dsCONSULTA.DataSet.Edit;
  dsCONSULTA.DataSet.First;
  while ( not dsCONSULTA.DataSet.Eof ) do begin
     if (dsCONSULTA.DataSet.FieldByName('CANTIDAD').AsFloat <= 0) then begin
                 porcentaje := CalculoPorcentaje;
                dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := porcentaje * pUtilizado;
              end;
              dsCONSULTA..DataSet.Next;
  end;
  dsCONSULTA.DataSet.Post;
  end;

pero me dice que la query no está en modo insert o edit.

pero como??? si ya le di el edit mas arriba ???

gracias