Source position: ssfpc.inc line 248
type TLinger = packed record
l_onoff: Integer;
l_linger: Integer;
end;