Компонент WinHttpRequest в потоке

[\PaLaDin/]

Всем привет, проблема такова:
Не могу создать Win[Ссылки могут видеть только зарегистрированные и активированные пользователи] компонент в потоке.

procedure potok.Execute;
var Req: OleVariant;
begin
showmessage('Старт');/// Работает
Req := CreateOleObject('Win[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
showmessage('Финиш'); /// Не работает
end;

Если делать без потоков, то все норм.
:cry:

[NebesaBag]

procedure potok.Execute;
var Req: OleVariant;
begin
try
showmessage('Старт');/// Работает
Req := CreateOleObject('Win[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
showmessage('Финиш'); /// Не работает
except
on E : Exception do
Showmessage(E.ClassName+' ошибка с сообщением: '+E.Message);
end;
end;


Начни с этого хотябы. Вероятно, что в процессе создания возникает ошибка.