Consulta principiante por sintaxis

[Leopard2]

Hola, trabajo con Delphi 7 y Firebird 2.5 con componentes IBX, mi consulta es que necesito listar de una base solo los registros que digan activo = S, si lo hago directamente en la propiedad EditSql del Query me funciona :

Código SQL [-]
select * from BODEGA Where activo = 'S'

Si trato de hacerlo en tiempo de ejecución no me deja por la sintaxis de las dobles cremillas :

Código SQL [-]
    with Query1 do
      begin
            Close;
            SQL.Clear;
            SQL.Add('select * from Bodega');
            SQL.Add('Where Activo = 'S' ');
            Open;
      end;

Si la paso como parametro me funciona pero me gustaría saber cual seria la sintaxis para comparar campos String :

Código SQL [-]
    with Query1 do
      begin
            Close;
            SQL.Clear;
            SQL.Add('select * from Bodega');
            SQL.Add('Where Activo = :Variable');
            ParamByName('Variable').AsString := 'S';
            Open;
      end;

Saludos