a bit performance increasing

[GoogleCodeExporter]

procedure TIocpTcpSocket.RequestAcceptComplete(PerIoData: PIocpPerIoData);
var
  .....
begin
.....
FConnectionList[PerIoData.ClientSocket] := Connection;
FIdleConnectionList.Delete(Connection.FSocket);
Connection.FConnectionSource:=csConnect;
......
end;


procedure TIocpTcpSocket.FreeConnection(Connection: TIocpSocketConnection);
begin
  try
    FConnectionListLocker.Enter;
    if not Connection.FConnectionSource=csConnect then FConnectionList.Delete(Connection.FSocket) 
else
      FIdleConnectionList.Delete(Connection.FSocket);
    FConnectionPool.FreeObject(Connection);
  finally
    FConnectionListLocker.Leave;
  end;
end;

Original issue reported on code.google.com by Hezihang...@gmail.com on 5 Jul 2013 at 12:10