set socket options in TSocketStream.SetSocketOptions

(cherry picked from commit 3814df5b4a052afb5b0d28e761c8836212b353d9)

packages/fcl-net/src/ssockets.pp

@@ -476,6 +476,7 @@ end;
 Procedure TSocketStream.SetSocketOptions(Value : TSocketOptions);
 
 begin
+  FSocketOptions:=Value;
 end;
 
 function TSocketStream.Seek(Offset: Longint; Origin: Word): Longint;