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