Спасибо.
Кстати, если будет время посмотреть: есть один глюк. Правда так делать нельзя, но при изменении свойства Enabled у sSpeedButton из потока (TThread), если включено скинирование, то программа зависает на этом месте. Если скинирование отключено, то всё хорошо. К сожалению примера дать не могу. Да и как говорил, обращение напрямую к элементам формы из потока тоже не правильно:)