Source position: socketsh.inc line 178
procedure Sock2Text(
Sock: LongInt;
var SockIn: Text;
var SockOut: Text
);