Не могу разобраться в простенькому приложении.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UnitForm1.h"
#include <list>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
class TClient
{
  private:
    float balance;
    String name;
}
class TBank
{
  friend class Client;
  private:
    TList *List;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  List = new TList;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_AddClientClick(TObject *Sender)
{
  if ((Edit_AddBalance->Text != "") && (Edit_AddName->Text != ""))
  {
    TClient *Client = new TClient;
 
    Client->balance = StrToFloat(Edit_AddBalance->Text);
    Edit_AddBalance->Text = "";
 
    Client->name = Edit_AddName->Text;
    Edit_AddName->Text = "";
 
    List->Add(Client);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_ShowClick(TObject *Sender)
{
  String s;
  for(int i=0;i<List->Count;i++)
  {
    s = IntToStr(i) + " -> Name: " + List->Items[i]->name + " -> Balance: " + 
    FloatToStr(List->Items[i]->balance);
    ListBox1->Items->Add(s);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn_ClearClick(TObject *Sender)
{
  ListBox1->Clear();
}
//---------------------------------------------------------------------------

List = new TList(this);

Client->Name = Edit_AddName->Text;

List = new TList;

List = new TList(this);

TList *List;

List = new TList(this);
List->Parent = this; // or Form1
List->Top = ...;
List->Left = ...;
...