delphi多线程进度显示问题

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Gauges; const msg_update = WM_USER + 1; type TForm1 = class(TForm) Gauge1: TGauge; Button1: TButton;