Чуть не понятно с WinSock на делфи

[zotox]

И так имееться код

procedure TForm1.FormCreate(Sender: TObject);
var
  addr:TSockAddr;
  Sock:TSocket;
  WSADATA:TWSADATA;
begin
 winsock.WSAStartup(MAKEWORD(2,0),WSADATA);
 addr.sin_family:=AF_INET;
 addr.sin_addr.S_addr:=inet_addr('ya.ru');
 addr.sin_port:=htons(80);
 sock:=socket(af_inet, SOCK_STREAM, IPPROTO_IP);
 connect(sock, addr, sizeof(addr));
 if connect(sock, addr, sizeof(addr))=SOCKET_ERROR then
  begin
   ShowMessage('Соединения нету');
  end;
end;

Мне в нем не понятно 2 вещи это:
1-Как подключиться к хосту с помощью WinSock?
Сначало без if'a можно? Или через if не возможно коннект установить? (да я знаю что if проверяет но многие пишут проверку а в итоге перед проверкой не стоит коннект с WinSock!)
2-Как проверить что не удалось подкл к хосту?

[zotox]

Просьба перенести в раздел "Работа с сетью в Delphi"

[zotox]

ап. что не кто не знает?

[zotox]

up........

[zotox]

Очередной ап
Где же вы специалисты?