QuickReport-ban nyomtatható TGauge komponens adatbázis eléréssel

procedure TQRDBGauge.RedrawTo;
…
  if FFieldOK then begin
    if FDataSet.DefaultFields then FField:=FDataSet.Fields[FFieldNo];
  end else begin
    FField := nil;
  end;

  if Assigned(FField) then begin
    if FField.DataType=ftFloat then begin
      value := TFloatField(FField).Value;
    end else begin
      value := TIntegerField(FField).Value;
    end;
  end else value:=0;