Fórum ERRO NO DELPHI #391197

ESTOU DESENVOLVENDO UMA TELA DE PEDIDOS E AO CLICAR NO BOTAO PARA ADICIONAR ITENS APRESENTA O SEGUINTE ERRO:   ERRO DE SINTAXE NA EXPRESSAO DE CONSULTA 'ITENS_VENDAS_RENE' 'WHERE PRODUTOS_RENE'   VOU APRESENTAR A SINTAXE QUE DIGITEI NO STRINGSQL da qrItens_vendas   SELECT PRODUTOS_RENE.DESCRICAO, ITENS_VENDAS_RENE.*   FROM PRODUTOS_RENE, ITENS_VENDAS_RENE   WHERE PRODUTOS_RENE.COD_PRODUTO = ITENS_VENDAS_RENE.COD_PRODUTO   AND ITENS_VENDAS_RENE.COD_VENDA = :pCodigo     O CODIGO QUE DIGITEI É O SEGUINTE:   procedure TF_VENDAS_PEDIDOS.MontaGrade(Sender: TObject);  begin with qrItensVenda do   begin     Close;     SQL.Clear;     SQl.Add('SELECT  PRODUTOS_RENE.DESCRICAO, ITENS_VENDAS_RENE.*');     SQL.Add('WHERE PRODUTOS_RENE, ITENS_VENDAS_RENE');     SQL.Add('WHERE PRODUTOS_RENE.COD_PRODUTO = ITENS_VENDAS_RENE.COD_PRODUTO');     SQL.Add('AND ITENS_VENDAS_RENE.COD_VENDA =  :pCodigo');     Parameters.ParamByName('pCodigo').Value:= vPedido;     open;    end;    if qrItensVenda.RecordCount <> 0 then    begin     qrCalcTotal.Close;     qrCalcTotal.Parameters.ParamByName('pCodigo').Value :=  vPedido;     qrCalcTotal.Open;     DBEdit12.Text := FormatFloat ('###,###,##0.00',qrCalcTotal.FieldByName('Total').Value);     end     else     begin       qrItensVenda.Close;       DBEdit12.Clear;      end;     end;