function TClient.RecvThread_Open(g_cs: PRTL_CRITICAL_SECTION): Boolean;
var
  ThreadID : Cardinal;
  Parameter : PParameter;
begin
  New(Parameter);
    Parameter^.Client := self;
    Parameter^.g_cs := g_cs;

  InitializeCriticalSection(g_cs^);

  FClientThread := BeginThread(nil, 0, @Client_RecvThread, Parameter, 0, ThreadID);
  FTerminated := (FClientThread = 0);
  Result := not FTerminated;
end;