Function IsInt(Str : String): Boolean;
   var
     Pos : Integer;
   begin
     Result := True;
     Str := Trim(Str);
     For Pos := 1 To Length(Str) do
     begin
        IF (Str[Pos] <> '0') and (Str[Pos] <> '1') and
           (Str[Pos] <> '2') and (Str[Pos] <> '3') and
           (Str[Pos] <> '4') and (Str[Pos] <> '5') and
           (Str[Pos] <> '6') and (Str[Pos] <> '7') and
           (Str[Pos] <> '8') and (Str[Pos] <> '9') and
           (Str[Pos] <> '.') Then
        Begin
           Result := False;
           Exit;
        end;
     end;
   end;

Отправлен пакет: размер: 86 байт(а)
<iq type='set' id='bind_2'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>

Принят пакет: размер: 49 байт(а)
<iq from="jabber.org" type="result" id="bind_2"/>

   if FProxyResolve then
       // Формируем пакет
       SendStr('CONNECT ' + FDestHost + ':' + IntToStr(FDestPort) + ' HTTP/1.0' + #13#10)
    else
       SendStr('CONNECT ' + WSockAddrToIp(FDestIp) + ':' + IntToStr(FDestPort) + ' HTTP/1.0' + #13#10);

    SendStr('User-Agent: Mozilla/4.08 [en] (WinNT; U ;Nav)' + #13#10);
    if FProxyAuth then
       SendStr('Authorization: Basic ' + EncodeBase64(ProxyUser + ':' + ProxyPass) + #13#10 +
               'Proxy-Authorization: Basic ' + EncodeBase64(ProxyUser + ':' + ProxyPass) + #13#10);

    SendStr(#13#10);

var
  WSAData: TWSAData;
  WSAStarted: Boolean;


initialization
  {Use WinSock 1.1}
  if WSAStartup(MAKEWORD(1, 1), WSAData) <> 0 then begin
    {$IFDEF DEBUG}
    MessageBox(0, PChar('Could not start WSA'), 'Error!', MB_ICONERROR);
    {$ENDIF}
    WSAStarted := False;
  end else
    WSAStarted := True;

//  CoInitializeEx(nil, 0);

finalization
  if WSACleanUp <> 0 then begin
    {$IFDEF DEBUG}
    MessageBox(0, PChar('Could not cleanup WSA'), 'Error!', MB_ICONERROR);
    {$ENDIF}
  end;
  WSAStarted := False;
end.