Кстати, про CreateThread. Такое использование параллельного потока - подводная мина. RTL Delphi остается однопоточной, как следствие, возможны глюки, например, при работе со строками (когда строка уничтожается, а в другом месте ещё используется). То же, возможно, при уничтожении массивов и объектов.