[ecfisa]

Hola ezerusso.

Si estas usando el mismo componente query para mostrar y para actualizar, podrías hacer:

Código Delphi [-]
var
  tmp: string;
begin
  tmp := ADOQuery1.SQL.Text;  // salvar cadena SQL previa

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'UPDATE TABLA1 SET CONSUMO = FINAL - INICIO';
  ADOQuery1.ExecSQL;

 
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := tmp; // restaurar cadena SQL previa
  ADOQuery1.Open;
end;

Saludos