Source position: ssfpc.inc line 407
function SetVarSin(
var Sin: TVarSin;
IP: string;
Port: string;
Family: Integer;
SockProtocol: Integer;
SockType: Integer;
PreferIP4: Boolean
):Integer;