problemas com matriz no delphi 7

procedure TForm1.Button1Click(Sender: TObject);
var
  v_i: integer;
  v_a: boolean;

begin
  //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER NÃO INSERE
  TRY
    FOR v_i := 0 TO ListBox1.Items.Count-1 DO
      BEGIN
        IF ComboBox1.Text = ListBox1.Items[v_i] THEN
          BEGIN
            v_a := TRUE;
            Break;
          END;
      END;
    IF v_a = FALSE THEN
      ListBox1.Items.Add(ComboBox1.Text);
  EXCEPT
  END;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  v_i: integer;

begin
  //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER DELETA
  TRY
    FOR v_i := 0 TO ListBox1.Items.Count-1 DO
      BEGIN
        IF ComboBox1.Text = ListBox1.Items[v_i] THEN
          ListBox1.Items.Delete(v_i);

      END;
  EXCEPT
  END;
end;