Как обработать не валидный коннект?(delphi,winsock)

[zotox]

Как обработать не валидный коннект?(delphi,winsock)
Дело таки в том что я знаю как примерно его обработать (полный листинг не буду давать, токо основной-примерный код) но у меня программа зависает просто при коннекте!(и не может обработать ошибку видно)

 s:=socket(af_inet, sock_stream, 0);

 addr.sin_family:=AF_INET;
 addr.sin_port:=htons(80);
 addr.sin_addr.S_addr:=inet_addr('1.1.11.1'); 
//Специально указал на не правильный адрес

 if connect(s,addr,sizeof(addr))=SOCKET_ERROR then
  begin
   Memo1.Lines.Add('-ERROR');
   closesocket(s);
   exit;
  end

[zotox]

Ап, нету специалистов по WinSock чтоль? Можно даже и на C++, пойму...