Hola rotsen26.
Si no te entiendo mal, creo que sería:
Código Delphi
[-]
with qry_consumo do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE DET_CONSUMO SET ESTATUS = :PSTATUS');
SQL.Add('WHERE PK_CONSUMO = :PCONSUMO');
ParamByName('PSTATUS').AsString := 'DEV';
ParamByName('PCONSUMO').Value := El_Otro_Qry.FieldByName('PK_CONSUMO').Value;
ExecSQL;
end;
Saludos.