[Miguel89]

Muchas gracias por el codigo cloayza, solo he cambiado un poco para adaptarlo a lo que estaba buscando ya que el caption no existia, en su lugar habia una imagen.

Código Delphi [-]
       
procedure TForm1.Button1Click(Sender: TObject); var      i, CountX, CountV:Integer;
CountX:=0; CountV:=0;
      for i:=0 To ListView.Items.Count-1 do
      begin
             if ListView.Items[i].ImageIndex=1 then
                Inc(CountX);
            if ListView.Items[i].ImageIndex=2 then
                Inc(CountV);
      end;

Saludos.