Форум АНТИЧАТ - Показать сообщение отдельно - Скан ip, на открытый порт[Delphi]

Сейчас делфи нету но попытаюсь написать (так что подправьте меня если я где то сделал ошибку)
Код в создании формы:

Код:

var
 ws:wsadata;
begin
 wsastartup($101, ws);
end;

Процедура:

Код:

var
 sock: tsocket;
 ServerInfo: sockaddr_in;
begin
 sock:=socket(af_inet, sock_stream, 0);
 ServerInfo.sin_family := AF_INET;
 ServerInfo.sin_addr.s_addr := inet_addr('188.40.76.205');
 ServerInfo.sin_port := htons(80);

 if connect(sock, ServerInfo, sizeof(serverinfo))=0 then
  begin
    ShowMessage('Порт открыт');
    //Тут можно написать запись в файл
  end
 else
   begin
    ShowMessage('Порт закрыт');
   end;
end;

Ах да и в uses пропиши -> winsock
(если не разберешься или будет ошибка/ошибки -> отпишись, помогу)