TSelectProc = function (nfds: Integer; readfds, writefds, exceptfds: PFDSet; timeout: PTimeVal): Longint;