[Помогите!] Компонент WinHttpRequest в потоке

[\PaLaDin/]

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

procedure potok.Execute;
 var Req: OleVariant;
begin
showmessage('Старт');/// Работает
Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
showmessage('Финиш'); /// Не работает
end;

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

[NebesaBag]

procedure potok.Execute;
 var Req: OleVariant;
begin
try
 showmessage('Старт');/// Работает
 Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
 showmessage('Финиш'); /// Не работает
except
 on E : Exception do
  Showmessage(E.ClassName+' ошибка с сообщением: '+E.Message);
end;
end;

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