Fórum Ajuda com Listview #343394

Colegas estou usando um dbgrid é um listview
No cadastro de entrada de material
Os produtos ficam no grid e ao clicar no mesmo “jogo” no listview
Até ai tudo bem só que tem alguns erros que não consigo tirar:
Não deixar que seja inserida o mesmo produto duas vezes
Não sei como verificar a cada item inserido se o mesmo já existe no
Listview.
Na coluna quantidade o valor não pode ser zero também não sei
Como verificar isso.

Para inserir uso esse código :
procedure TfrmMovEntrada.AdicionarItem;
var
ListItem: TListItem; // Variável para guarda os itens do Listview
item : string;
begin

// Adicionamos um Item ao ListView
ListItem := ListView1.Items.Add;

// Adicionamos dados a Coluna Código do Grupo
ListItem.Caption := qryEstCons.Fieldbyname(´cd_grupo´).AsString;

// Adicionamos dados a Coluna Nome do Grupo
ListItem.SubItems.Add(Trim(qryEstCons.Fieldbyname(´de_grupo´).AsString));

// Adicionamos dados a Coluna Código do Produto
ListItem.SubItems.Add(qryEstCons.Fieldbyname(´cd_produto´).AsString);

// Adicionamos dados a Coluna Nome do Produto
ListItem.SubItems.Add(Trim(qryEstCons.Fieldbyname(´de_produto´).AsString));

// Adicionamos dados a Coluna Quantidade do Produto
item:= (InputBox(´SCA´,´Informe a quantidade´,´0´));
if item = ´0´ then
begin
Application.MessageBox(´Informe uma quantidade correta´, ´Atenção´, MB_OK +
MB_ICONINFORMATION);
item:= (InputBox(´SCA´,´Informe a quantidade´,´0´));
end
else
begin
ListItem.SubItems.Add(item);
// Adicionamos dados a Coluna Quantidade do Produto
ListItem.SubItems.Add(Trim(qryEstCons.Fieldbyname(´vl_custo´).AsString));
end;
end;

Alguém pode me ajudar.