Except (wyjątek) nie działa w wątkach

Mam taki kodzik:

//LACZENIE
procedure Lacz;
var
idhttp1: TIdHTTP;
begin
idhttp1 := TIdHTTP.Create(nil);
idhttp1.ConnectTimeout := 5000;
Try
TekstHTML := idhttp1.Get('http://www.costam.costam.pl');
Except
Showmessage('Błąd');
idhttp1.Free;
idhttp1 := nil;
end;

if Assigned (idhttp1) then //tutaj tak na wszelki wypadek wyładowuje
  begin
  idhttp1.Free;
  idhttp1 := nil;
  end;
end;

Jak sie okazuje w ogóle nie wywala mi dialogu z "Bład" mimo że na pewno wystepuje (wpisałem fikcyjny link). Dlaczego tak sie dzieje?

[b]---EDIT---[/b]
Bym zapomniał... to jest "zewnętrzna" procka którą wywołuje wątek

Najprostsza rzecz - błąd nie występuje. Poczytaj o komponencie jestem w 99% przekonany że autorzy pomyśleli i jesli nie ma strony to się nie wywala tylko wstawia jakiś defaultowy wynik, lub ustawia jakaś flagę. Po prostu komponent sam obsługuje taką sytuację i informuje o braku strony a nie wywala się z błedem.
Doczytaj o komponencie

Jak robie w testowym execu bez wątków to wywala mi "Socket Error # 10060. Conection Time Out". Jak zakleje to w wyjątek to moge go wylapac.

---EDIT---
Rozwiązane. po prostu wpisywałem losowy link po aliasie głównej strony, okazało sie że serwer robi przekierowania jak link nie istnieje [rotfl] , dlatego nie wywalało wyjątku. Temat można zamknąć.