delphi - フィールドでデータセットをフィルタリングする TCheckBox

Question

チェックボックスをオンにするときに、1 つのフィールドでデータセットをフィルター処理しようとしています。以下は、私がまとめて正しいと思ったコードですが、機能していないようで、0 レコードが返されます。

procedure TfrmCustomers.cbClick(Sender: TObject);
if cbActive.Checked = True then
with dmod.cds do
begin
  DisableControls;
  try
    Filtered := False;
    FilterOptions := [foCaseInsensitive,foNoPartialCompare];
    Filter := ('active LIKE true');
    Filtered := True;
  finally
    EnableControls;
  end;
end;
end;

データセット内のフィールドの名前は「アクティブ」と呼ばれ、「true」または「false」のいずれかの文字列を格納します。

どんな助けでも大歓迎です。

ありがとう、