TdxGaugeControl

procedure TForm11.Button2Click(Sender: TObject);
begin
  dxGaugeControl1DigitalScale1.Value := '1234';
end;