anchor.diff:    edtInterval.Text := IntToStr(lvDValue.ForceByName('send_interval').AsInteger);
     mmoIntervalData.Lines.Text := lvDValue.ForceByName('send_interval_data').AsString;
     mmoOnConnected.Lines.Text := lvDValue.ForceByName('send_onconnected_data').AsString;
  -
  +  edtCount.Text := lvDValue.ForceByName('client_num').AsString;
  +  
     lvDValue.Free;
   
     FSendDataOnConnected := chkSendData.Checked;
  
positive.code:   chkRecvOnLog.Checked := lvDValue.ForceByName('chk_recvonlog').AsBoolean;
    chkSendData.Checked := lvDValue.ForceByName('chk_send_onconnected').AsBoolean;
  
    chkHex.Tag := 1;
    chkHex.Checked := lvDValue.ForceByName('chk_send_hex').AsBoolean;
    chkHex.Tag := 0;
  
negative.code: end;
  
  procedure TfrmMain.btnCreateClick(Sender: TObject);
  var
    lvClient:TIocpRemoteContext;
    i:Integer;
  begin
    chkRecvOnLog.Checked := StrToInt(edtCount.Text) < 10;
    SpinLock(FSpinLock);
  