Отладить программу

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
typedef struct SLIST{
        int date;
        SLIST *next;
                    }SLIST1;
 
SLIST *head; //óêàçàòåëü íà íà÷àëî ñïèñêà
SLIST *pv;     //íà ïðåäûäóùèé
SLIST *curr;  //òåêóùèé
int n;        //êîë-âî ýëåìåíòîâ
TForm1 *Form1;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (head==NULL){
head=new SLIST;
n++;
if (head!=NULL)
head->date=StrToInt(Edit1->Text);
curr=head;
pv=head;
ListBox1->Items->Add(IntToStr(head->date));
ShowMessage(IntToStr(head->date));
}
else{
pv=curr;
curr = new SLIST;
n++;
curr->date=StrToInt(Edit1->Text);
curr->next=NULL;
pv->next=curr;
ShowMessage("Ïðåäûäóùèé = "+IntToStr(pv->date));
ListBox1->Items->Add(IntToStr(curr->date));
 
}
Edit2->Text=IntToStr(n);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
 if (head!=NULL)
 {
 curr=head;
  while(curr->next!=NULL)
  {
 
  ListBox2->Items->Add(IntToStr(curr->date));
 
//  ShowMessage(IntToStr(curr->date));
  curr=curr->next;
  }
  ListBox2->Items->Add(IntToStr(curr->date));
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(curr->next==NULL)
{
        delete(curr);
        curr=pv;
        curr->next=NULL;
        (curr=head);
        (pv=NULL);
while (curr->next!=NULL)
       {
       pv=curr;
       curr=curr->next;
       }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ListBox2->Items->Clear();
}
//---------------------------------------------------------------------------