ListView

Olá colegas,

estou inserindo items em um listview com o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
ItmLst: TListItem;
begin

ItmLst := ListView1.Items.Add;
ItmLst.Data := Pointer(1);
ItmLst.Caption := Query1.FieldByName(´Cod_CompraBanco´).asString;
ItmLst.SubItems.Add(FormatFloat(´#,0.00´, Query1.FieldByName(´Valor´).asCurrency));
ItmLst.SubItems.Add(Query1.FieldByName(´Vencimento´).asString);

If not Query1.Eof then
Query1.Next;
end;

1) preciso acrescentar uma rotina que verifique se já existe o Cod_CompraBanco da query1 na lista. Se já existe mandar mensagem ao usuário e impedir que ele seja novamente listado. Tentei fazer uma rotina mas não consegui. Preciso de ajuda.

2) Preciso também de um código para deletar somente a a linha selecionada da lista. Também não consegui.

Grato pela atenção