[Resolvido] problemas com o delete

Olá pessoal.

Estou com problemas com um delete que não deleta nada.

Estou usando delphi 6, interbase 7.5, query do BDE.

Já tentei de muitas maneiras. Minha ultima tentativa foi assim:

QProduto.Close;

Qproduto.SQL.Clear;

QProduto.SQL.add('delete from Produto');

QProduto.SQL.Add('where cod_poduto='+EdtCodProduto.Text);

Não há menssagem de erro. A caixa de menssagem diz que o registro

foi excluído com sucesso. Mas não foi.

Se alguém puder me ajudar agradeço muito.