O q ha de errado neste código?

Bom dia a todos!!!!

Estou tentando inserir dados em uma tabela via sql ele insere só q ele duplica os campos no banco de dados é como se ele gravasse duas vezes o conteudo do edit abaixo segue o código

procedure TForm1.Button1Click(Sender: TObject);
begin
with zmysqlquery1 do
begin
if active then zmysqlquery1.close;
sql.Clear;
sql.Add(´insert into teste (campo1, campo2) values (:teste1, :teste2)´);
zmysqlquery1.parambyname(´teste1´).AsString := Edit1.Text;
zmysqlquery1.parambyname(´teste2´).AsString := Edit2.Text;
open;
end;
end;

Me ajudem por favor

Desde já agradeço

Luiz Jesuz Pires da Silva Jr.