Обьявить компонент для всех функий

#include<vcl.h>
#include<math.h>
//Бла-бла-бла
//Здесь нужно создать TStringList
//Дальше идет список функций
 
  void Add(AnsiString NameOfObject)
  {
 
  }
  void CreateQ(AnsiString namef,int mx,int my,TCanvas *Par){
   }
  void Coll(String Object)
  {
  }
//И т.д

class TTest:public TStringList
 {
   public:
    void DF(AnsiString Np){Add(Np);};
    void SV(AnsiString Sv){};
 };

 class TObj:public TStringList
 {
   public:
   void AddObj(AnsiString name);
 };
 void TObj::AddObj(AnsiString name)
 {
 Add(name);
 }

#include<vcl.h>
class TMyList:public TStringList
{
public:
/*String Take(AnsiString Key)
{
AnsiString fake=Strings[IndexOf(Key)];
}
*/
void Save();
void SetValue(AnsiString KeyName,AnsiString Value);
};
 
 
void TMyList::Save()
{
SaveToFile("E:\\test.txt");
}
void TMyList::SetValue(AnsiString KeyName,AnsiString Value)
{
  if(IndexOf(KeyName)!=-1){
  Strings[IndexOf(KeyName)]=KeyName;
  Strings[IndexOf(KeyName)+1]=Value;
  }
  else {
   Add(KeyName);
   Add(Value);
  }
}

TMyList *lst=new TMyList;

#include<vcl.h>
class TMyList:public TStringList
{
public:
/*String Take(AnsiString Key)
{
AnsiString fake=Strings[IndexOf(Key)];
}
*/
void Save();
void SetValue(AnsiString KeyName,AnsiString Value);
};
 
 
void TMyList::Save()
{
SaveToFile("E:\\test.txt");
}
void TMyList::SetValue(AnsiString KeyName,AnsiString Value)
{
  if(IndexOf(KeyName)!=-1){
  Strings[IndexOf(KeyName)]=KeyName;
  Strings[IndexOf(KeyName)+1]=Value;
  }
  else {
   Add(KeyName);
   Add(Value);
  }
}

TMyClass *lst=new TMyClass;
lst->SetValue("Test","Dead");
lst->Save();
delete lst;