【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供IndicatePsc.pas参考，解决您在IndicatePsc.pas学习中工作中的难题，参考学习。

    unit IndicatePsc;
    
    interface
    
    uses
      Classes;
    
    type
      INDICATE = class(TThread)
      private
        { Private declarations }
      protected
        procedure Execute; override;
      end;
    
    implementation
    
    { Important: Methods and properties of objects in visual components can only be
      used in a method called using Synchronize, for example,
    
          Synchronize(UpdateCaption);
    
      and UpdateCaption could look like,
    
        procedure INDICATE.UpdateCaption;
        begin
          Form1.Caption := 'Updated in a thread';
        end; }
    
    { INDICATE }
    
    procedure INDICATE.Execute;
    begin
      { Place thread code here }
    end;
    
    end.