3 vezes o mesmo dado

estou tentando filtrar essa tabela mas quando termina ele mostra o registro vezes. no dbgrid.



procedure TFRMCONSPADRAO.Edit1Change(Sender: TObject);
begin
if edit1.Text <> ´´ then
begin
DataModulederma.ZQueryPadrao.Open;
DataModulederma.ZQueryPadrao.Filter:=´codigo=´´´+edit1.text+´´´´;
DataModulederma.ZQueryPadrao.Filtered:=true;
end;

end;

estou usando zquery> zupadte > datasource