Создать новый стек, содержащий только четные числа из первого стека

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stack.h>
#pragma hdrstop
 
 
 
#include "Stak1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
struct Stack{
 int number;
 Stack *nextnum;
 } *topnum,*temp;
 
Stack* AddStack(Stack*,int);
void View(Stack*);
void DelStack(Stack**);
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Clear();
Memo1->Clear();
}
//------------------Create stack---------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i, in, n = StrToInt(Edit1->Text);
        if(topnum!= NULL){
                return;
        }
        for(i = 1; i <= n; i++){
                in = random(100)-50;
                topnum = AddStack(topnum, in);
        }
        Memo1->Lines->Add("--- Elements of stack ---");
        View(topnum);
}
//----------------- Create new stack with even number from old stack---------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (topnum != NULL) DelStack(&topnum);
Memo1->Clear();
}
//---------------------------------------------------------------------------
Stack* AddStack(Stack *p, int in) {
        Stack *temp = new Stack;
        temp -> number = in;
        temp -> nextnum = p;
        return temp;
}
//----------------- ----------------------------------
void View(Stack *p) {
        Stack *temp = p;
        while( temp != NULL) {
        Form1->Memo1->Lines->Add("   " + IntToStr( temp->number));
        temp=temp->nextnum;
        }
}
//---------------------------------------------------------------------------
void DelStack(Stack **p)   {
        Stack *temp;
         while( *p != NULL) {
          temp = *p;
           *p = (*p) -> nextnum;
        delete temp;
        }
}
//---------------------------------------------------------------------------
 
void DelOddNumbers(Stack* p, int *out)   {
    Stack *temp = p;
    *out = p -> number;
    p = p -> nextnum;
    if(temp&1){
    delete temp;
    }
    return p;
}
//----------------------------------------------------------------------------