Código Seleção DBGrid

Caro Márcio,

Encontrei esse código ai, abaixo:

procedure TfrmVendas.DBGrid1CellClick(Column: TColumn);

 var

 Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

// posiciona o dataset de origem no "n" registro selecionado

 tbProduto.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

 // move os dados do dataset de origem para destino aqui

 tbVendas.Append;

 tbVendasNomProd.Value := tbProdutoNomProd.Value;

 tbVendasCorProd.Value := tbProdutoCorProd.Value;

 tbVendasTipo.Value := tbProdutoTipo.Value;

 tbVendas.Post;

 end;

 end;

Com ele, consigo selecionar o produto desejado, quantas vezes desejar, só que recebo uma mensagem de violação de chave, porque o Delphi entende que estou querendo inserir o nome do cliente mais de uma vez....

Aliás, quero que apareça o nome do cliente apenas uma vez, mesmo que a ele seja enviado mais de um produto, entende?

Como posso melhorar esse código? Qual melhor componente para vizualisar dessa forma?

Um abraço!

Sérgio.