TSlaveThread

type TSlaveThread = class(TIdThread)

protected

  procedure SetExecuted();

  function GetExecuted;

  procedure AfterRun; override;

  procedure BeforeRun; override;

public

  SlaveParent: TIdTunnelSlave;

  Receiver: TReceiver;

  property Executed: Boolean; [rw]

  property Connection: TIdTCPClient; [r]

  constructor Create();

  destructor Destroy; override;

  procedure Execute; override;

  procedure Run; override;

end;

TSlaveThread

TIdThread

TObject