TWSAAsyncGetProtoByNumberProc = function (HWindow: HWND; wMsg: u_int; number: Integer; buf: PChar; buflen: Integer): THandle;