diff --git a/mdl/m_socket_class.pas b/mdl/m_socket_class.pas
index 7f9233e..a6f4a88 100644
--- a/mdl/m_socket_class.pas
+++ b/mdl/m_socket_class.pas
@@ -487,9 +487,14 @@ End;
 Procedure TSocketClass.WaitInit (Port: Word);
 Var
   SIN : TINetSockAddr;
+  Opt : LongInt;
 Begin
   FSocketHandle := fpSocket(PF_INET, SOCK_STREAM, 0);
 
+  Opt := 1;
+
+  fpSetSockOpt (FSocketHandle, SOL_SOCKET, SO_REUSEADDR, @Opt, SizeOf(Opt));
+
   SIN.sin_family      := PF_INET;
   SIN.sin_addr.s_addr := 0;
   SIN.sin_port        := htons(Port);