Об отладке. Трассировка и более удобные инструменты.

ShowMessage("x="+IntToStr(x));

/// Unit1.h
class MList
{
protected:
     long FCount;
    inline int GetCount()
    { return FCount;
    }
public:
    __property int Count = {read=GetCount};
    MList()
    { FCount=3;
    }
};
//---------------------------------------------------------------------------
class TSetka
{public:
    MList Point;
};
//---------------------------------------------------------------------------
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    TSetka* Setka;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
 
/// Unit.cpp
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{ Setka=new TSetka;
    ShowMessage(Setka->Point.Count);
    int a=0; //// !!!! здесь ставим точку останова и смотрим в Wath List переменную Setka->Point.Count
}

int *c=new int[10];

OutputDebugString("Now starting dangerous function");
OutputDebugString(__FUNC__);

#pragma message ("Свой текст")

#ifndef TFastLogerH
#define TFastLogerH
//---------------------------------------------------------------------------
#include <windows.h>
#define ENDL "\n"
class TFastLoger
{
  HANDLE hConsole;
  public:
  TFastLoger();
  TFastLoger &operator << (char *cMessage);
};
extern TFastLoger Log;
#endif
 
//---------------------------------------------------------------------------
#pragma hdrstop
#include "TFastLoger.h"
 
//---------------------------------------------------------------------------
TFastLoger::TFastLoger()
{
  AllocConsole();
  hConsole = GetStdHandle(STD_OUTPUT_HANDLE);
  char hello[] = "<------------ FAST LOGER WINDOW ------------>\n";
  WriteConsole(hConsole, hello, strlen(hello), 0, 0);
}
 
TFastLoger &TFastLoger::operator << (char *cMessage)
{
  #ifndef NDEBUG
    DWORD written;
    WriteConsole (hConsole, cMessage, strlen(cMessage), &written, NULL);
  #endif
  return *this;
}
 
#pragma package(smart_init)

//---------------------------------------------------------------------------
#include <fstream>
//...
void LogWriteString(AnsiString LogMessage,AnsiString Note)
{
  AnsiString DATE_TIME = FormatDateTime("YYYY-MM-DD",Date())+
                         "/"
                         +FormatDateTime("HH:NN:SS:ZZZ",Time());
  FILE *f = fopen("log.txt", "a");
  if (f) {
    fprintf (f, "%s - %s, %s\n", DATE_TIME, LogMessage,Note); // получение currentTime описывать не стал, оно тут просто для примера
    fclose(f);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  LogWriteString(Button1->Caption,"\"Примітка\"");
}
//---------------------------------------------------------------------------

#include "MTrace.hpp" ////мой логер
int Func( int X)
{ _TFB_; /// начало ф-ции
  _TFl(X); /// значение переменной
  _TFE_; /// конец ф-ции
}
void __fastcall TForm2::Panel1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{ _TFB_
  _TT(this); /// тип переменной
  Func(X);
  _TV(Sender); /// адрес
  _TFl(Panel1->Caption); /// значение переменной
  _TFE_;
}