[alexteam]

э...
обьясни мне...
какой смысл было править с

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  isLSP.Enabled := not ChkLSPIntercept.Checked;
  BtnLsp.Enabled := not ChkLSPIntercept.Checked;
  if ChkLSPIntercept.Checked then
  begin
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

на

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  if ChkLSPIntercept.Checked then
  begin
    isLSP.Enabled := false;
    BtnLsp.Enabled := false;
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end else
  begin
    isLSP.Enabled := true;
    BtnLsp.Enabled := true;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

Добавлено через 1 минуту
порадовало:

if ChkLSPIntercept.Checked then
    dmData.LSPControl.setlspstate(not ChkLSPIntercept.Checked);