type
  TThreadEx = class(TThread)
  private
    FValue: Integer;
    function GetValue: Integer;
    procedure SetValue(const Value: Integer);
  public
    property Value: Integer read GetValue write SetValue;
  end;

function TThreadEx.GetValue: Integer;
begin
  Result:= LockedGet(FValue);
end;

procedure TThreadEx.SetValue(const Value: Integer);
begin
  LockedSet(FValue, Value);
end;