Each thread has 64 4byte storage locations

Code:

var ThreadLocalVariable:DWord; p:pointer begin ThreadLocalVariable := TLSAlloc; TLSSetValue(ThreadLocalVariable, p); p := TLSGetValue(ThreadLocalVariable); TLSFree(ThreadLocalVariable); end;