TIdThread

type TIdThread = class(TThread)

protected

  FData: TObject;

  FLock: TIdCriticalSection;

  FLoop: Boolean;

  FName: string;

  FStopMode: TIdThreadStopMode;

  FOptions: TIdThreadOptions;

  FTerminatingException: string;

  FTerminatingExceptionClass: TClass;

  FYarn: TIdYarn;

  FOnException: TIdExceptionThreadEvent;

  FOnStopped: TIdNotifyThreadEvent;

  procedure AfterRun; virtual;

  procedure AfterExecute; virtual;

  procedure BeforeExecute; virtual;

  procedure BeforeRun; virtual;

  procedure Cleanup; virtual;

  procedure DoException(); virtual;

  procedure DoStopped; virtual;

  procedure Execute; override;

  function GetStopped;

  function HandleRunException(); virtual;

  procedure Run; virtual; abstract;

  class procedure WaitAllThreadsTerminated();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Start; virtual;

  procedure Stop; virtual;

  procedure Synchronize(); overload;

  procedure Terminate; virtual;

  procedure TerminateAndWaitFor; virtual;

  property Data: TObject; [rw]

  property Loop: Boolean; [rw]

  property Name: string; [rw]

  property ReturnValue;

  property StopMode: TIdThreadStopMode; [rw]

  property Stopped: Boolean; [r]

  property Terminated;

  property TerminatingException: string; [r]

  property TerminatingExceptionClass: TClass; [r]

  property Yarn: TIdYarn; [rw]

  property OnException: TIdExceptionThreadEvent; [rw]

  property OnStopped: TIdNotifyThreadEvent; [rw]

end;

TIdThread

TObject