RegisterStorageClass

procedure RegisterStorageClass(storageClass: TStorageClass);