Populando combobox com filtro

Pessoal,

eu usava esse codigo no evento de show do form pra popular um combo com apenas os itens ativo da tabela paradox

frmdm.tbnomeprojeto.Filter := 'STATUS = ''ATIVO''';
frmdm.tbnomeprojeto.Filtered:= true;

 With frmdm.tbnomeprojeto do
 begin
 Comboprojeto.Items.Add('SEM PROJETO');
 while not eof do
 begin
 Comboprojeto.Items.Add(FieldByName('Nome_projeto').AsString);
 Next;
 end;
 end;

Funcionava super bem. Agora que miguei pra firebird, mudei a parte do ativo para o codigo abaixo, senão não funcionava.

'+QuotedStr('ATIVO')

Problema: Na primeira vez que entro no form traz tudo certinho. Agora, basta fechar em entrar nele novamente que traz apenas o item SEM PROJETO

Alguem sabe o que pode ser feito?