TWSAAsyncGetProtoByNameProc = function (HWindow: HWND; wMsg: u_int; name, buf: PChar; buflen: Integer): THandle;