type
	tLevel = record
		buckets: array of tBucket;
		hidden_bucket: tBucket;
		name: ansistring;
		author: ansistring;
	end;