В чем ошибки в коде добавления и удаления элемента из очереди?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct Ocher
{
 int n;
 Ocher* Next;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
Ocher* pbeg=NULL,pend=NULL;
void add (int d);
{
 Ocher* p=new Ocher;
 if (pend==NULL)
 {
  pend=p;
  pbeg=p;
 }
 else
 pend=p;
}
void del ()
{
 Ocher* p=pbeg;
 pbeg=pbeg->Next;
 delete p;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 for (int i=0; i<10; i++) push (rand());
  Ocher* p=pbeg; int i=0;
  while (p)
   {
     StringGrid1->Cells [i][0]=IntToStr (p->n);
     i++;
    p=p->Next;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
 for(int i=0; i < StringGrid1->ColCount; i++)
 StringGrid1->Cells[i][j] = "";
{
  int i=0;
pop ();
Ocher* p=pbeg;
while (p)
 {
   StringGrid1->Cells[i][0]=IntToStr (p->n);
   i++;
   p=p->Next;
 }
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
 for(int i=0; i < StringGrid1->ColCount; i++)
 StringGrid1->Cells[i][j] = "";
{
  int i=0;
pop ();
Ocher* p=pbeg;
while (p)
 {
   StringGrid1->Cells[i][0]=IntToStr (p->n);
   i++;
   p=p->Next;
 }
 
}

        : TForm(Owner)

TForm1 *Form1;
struct Ocher
{
 int n;
 Ocher* Next;
}; // <---
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}