[angvelem]

И чем это будет быстрее чем

Код:

function CloseSock(Sock:TSocket):integer;
begin
  closesocket(Sock);
  WSACleanup;
end;

загляни в процессе "прошагивания" в дебаггер и посмотри как этот код будет реализован в ASM.