C помощью каких функций можно преобразовать тип char в integer

program Client;
 
{$APPTYPE CONSOLE} 
 
uses
  Windows, SysUtils, WinSock;
 
var
  WWSAData: TWSAData;
  WSocket: TSocket;
  WSockAddr: TSockAddr;
  Buf: Array of Char;
  Str: String;
  Size, BufSize: Integer;
begin
  if WSAStartup($101, WWSAData) <> 0 then Halt;
    WSocket := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
      if WSocket = INVALID_SOCKET then Halt;
        FillChar(WSockAddr, SizeOf(TSockAddr), 0);
        WSockAddr.sin_family := AF_INET;
        WSockAddr.sin_port := htons(1111);
        WSockAddr.sin_addr.s_addr := inet_addr('127.0.0.1');
          if Connect(WSocket, WSockAddr, SizeOf(TSockAddr)) = SOCKET_ERROR then Halt;
            Size := SizeOf(Integer);
            GetSockOpt(WSocket, SOL_SOCKET, SO_RCVBuf, @BufSize, Size);
            SetLength(Buf, BufSize);
              repeat
                ReadLn(Str);
                  if Send(WSocket, Str[1], Length(Str), 0) = SOCKET_ERROR then Break;
                    Size := Recv(WSocket, Buf[0], BufSize, 0);
                      if Size <= 0 then Halt;
                        SetLength(Str, Size);
                        lstrcpyn(@Str[1], @Buf[0], Size + 1);
                        WriteLn(Str);
              until False;
  CloseSocket(WSocket);
  WSACleanup;
end.

program Server;
 
{$APPTYPE CONSOLE}
 
uses
  Windows, SysUtils, WinSock;
 
var
  WWSAData: TWSAData;
  WSocket, WListenSocket: TSocket;
  WSockAddr: TSockAddr;
  TreadID: THandle;
 
procedure SocketThread;
var
  Buf: Array of Char;
  Str: String;
  Size, BufSize: Integer;
  ClientAddr: TSockAddr;
  ClientSocket: TSocket;
begin
  ClientSocket := WSocket;
    if ClientSocket = INVALID_SOCKET then Exit;
      Size := SizeOf(TSockAddr);
      GetPeerName(ClientSocket, ClientAddr, Size);
      WriteLn('Client Connect: ' + inet_ntoa(ClientAddr.sin_addr) + ':' + IntToStr(htons(ClientAddr.sin_port)));
      Size := SizeOf(Integer);
      GetSockOpt(WSocket, SOL_SOCKET, SO_RCVBuf, @BufSize, Size);
      SetLength(Buf, BufSize);
        repeat
          Size := Recv(ClientSocket, Buf[0], BufSize, 0);
            if Size <= 0 then Break;
              SetLength(Str, Size);
              lstrcpyn(@Str[1], @Buf[0], Size + 1);
              WriteLn('Client: ' + inet_ntoa(ClientAddr.sin_addr) + ':' + IntToStr(htons(ClientAddr.sin_port)) + ' Send: ' + Str);
                if Send(ClientSocket, Str[1], Length(Str), 0) = SOCKET_ERROR then Break;
        until False;
  WriteLn('Client Disconnect: ' + inet_ntoa(ClientAddr.sin_addr) + ':' + IntToStr(htons(ClientAddr.sin_port)));
  SetLength(Buf, 0);
  CloseSocket(ClientSocket);
end;
 
begin
  if WSAStartup($101, WWSAData) <> 0 then Halt;
    WListenSocket := Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
      if WListenSocket = INVALID_SOCKET then Halt;
        FillChar(WSockAddr, SizeOf(TSockAddr), 0);
        WSockAddr.sin_family := AF_INET;
        WSockAddr.sin_port := htons(1111);
        WSockAddr.sin_addr.s_addr := inet_addr('127.0.0.1');
          if Bind(WListenSocket, WSockAddr, SizeOf(TSockAddr)) <> 0 then Halt;
            if Listen(WListenSocket, SOMAXCONN) <> 0 then Halt;
              WriteLn('Listening...');
                repeat
                  WSocket := Accept(WListenSocket, nil, nil);
                  CreateThread(nil, 0, @SocketThread, nil, 0, TreadID);
                until False;
  CloseSocket(WListenSocket);
  WSACleanup;
end.