diff --git a/mdl/m_socket_class.pas b/mdl/m_socket_class.pas
index c30d906..d5a26c2 100644
--- a/mdl/m_socket_class.pas
+++ b/mdl/m_socket_class.pas
@@ -503,6 +503,7 @@ Var
   PHE    : PHostEnt;
   SIN    : TINetSockAddr;
   Temp   : LongInt;
+  SL     : TSockLen;
 Begin
   Result := NIL;
 
@@ -521,7 +522,9 @@ Begin
   Else
     FPeerName := StrPas(PHE^.h_name);
 
-  fpGetSockName(FSocketHandle, @SIN, SizeOf(SIN));
+  SL := SizeOf(SIN);
+
+  fpGetSockName(FSocketHandle, @SIN, @SL);
 
   FHostIP := NetAddrToStr(SIN.sin_addr);
   Client  := TSocketClass.Create;