TIdThreadSafeStringList

type TIdThreadSafeStringList = class(TIdThreadSafe)

protected

  FValue: TStringList;

  function GetValue();

  procedure SetValue();

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Add();

  procedure AddObject();

  procedure Clear;

  function Empty;

  function Lock;

  function ObjectByItem();

  procedure Remove();

  procedure Unlock;

  property Values []: string; [rw]

end;

TIdThreadSafeStringList

TIdThreadSafe

TObject