Как программно выяснить минимально допустимый размер любого шрифта?

#define MAX_SIZES_AMOUNT 200
int currentsizes[MAX_SIZES_AMOUNT];
int cursize;
 
int CALLBACK FontEnumProc(
  ENUMLOGFONTEX *plf,    // данные логического шрифта
  NEWTEXTMETRICEX *ptm,  // данные физического шрифта
  DWORD FontType,           // тип шрифта
  LPARAM lParam             // данные определяемые приложением
);
//---------------------------------------------------------------------------
void __fastcall TSDIAppForm::choose_font_btnClick(TObject *Sender)
{
  if ( FontDialog1->Execute() ){
    this->Font->Assign(FontDialog1->Font);
  }
}
//---------------------------------------------------------------------------
void __fastcall TSDIAppForm::get_font_info_btnClick(TObject *Sender)
{
  int i, j;
  LOGFONT logfont;
  ZeroMemory( &logfont, sizeof(logfont) );
 
  logfont.lfHeight = 0;
  logfont.lfCharSet = this->Font->Charset;        // типы параметров соответствуют, можно присвоить
  if ( FAILED( StringCchCopy(logfont.lfFaceName,  // минус один возможный buffer overflow в нашей программе :)
                     sizeof(logfont.lfFaceName)/sizeof(logfont.lfFaceName[0]),
                     this->Font->Name.c_str()) ) ){
     ShowMessage("Font name is too long and thus it doesn't complies with standarts for font names.\nPlease, choose another font.");
     return;
  }
  logfont.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;  // свойство lfPitchAndFamily битовое и состоит из двух половинок: собственно, pitch и family - объединяем их оператором |
 
  cursize = 0;                         // обнулим счетчик для нового шрифта
  EnumFontFamiliesEx(Canvas->Handle,            // передаем информацию о нашем шрифте функции; FontEnumProc будет обрабатывать результаты
             &logfont,
             (WNDENUMPROC)FontEnumProc,
             0,                         // можно чего-нить передать функции FontEnumProc: любой указатель или целое число
             0);                        // этот параметр зарезервирован, он должен равняться нулю
 
  String temp;
  if (cursize >= 0){
    temp += IntToStr(currentsizes[0]);
    for (i = 1; i < cursize; i++) {
         temp += ", " + IntToStr(currentsizes[i]) ;
    }
    temp += ".";
  }
  else temp = "any sizes, as this is a TrueType or OpenType font.";
 
  SDIAppForm->Memo1->Lines->Add( "\"" + this->Font->Name + "\"" + " font possible sizes are: " + temp);
}
//---------------------------------------------------------------------------
int CALLBACK FontEnumProc( ENUMLOGFONTEX *plf, NEWTEXTMETRICEX *ptm, DWORD FontType, LPARAM lParam)
{
   int i;
 
    if(FontType == RASTER_FONTTYPE )
    {
        int  logsize    = ptm->ntmTm.tmHeight - ptm->ntmTm.tmInternalLeading;              // высота символа без верхнего отступа в логических единицах
        long pointsize  = MulDiv(logsize,
                                 72,
                                 GetDeviceCaps(SDIAppForm->Canvas->Handle, LOGPIXELSY)); // высота символа в пикселях
 
        for(i = 0; i < cursize; i++)        // проверка наличия дубликатов в уже инициализированной части массива
            if(currentsizes[i] == pointsize)
               return 1;                    // пусть EnumFontFamiliesEx() продолжает вызывать данную функцию
 
        currentsizes[cursize] = pointsize;  //записываем текущий размер в массив
 
        if(++cursize == MAX_SIZES_AMOUNT)   // MAX_SIZES_AMOUNT определено с помощью #define
           return 0;                        // пусть EnumFontFamiliesEx() перестанет вызывать данную функцию
 
        return 1;                           // пусть EnumFontFamiliesEx() продолжает вызывать данную функцию
    }
    else // шрифты TrueType и OpenType векторные, им можно задать любой размер; другое дело, как они после этого отрисуются :)
    {
        cursize = -1;
        return 0;  // пусть EnumFontFamiliesEx() перестанет вызывать данную функцию
    }
}

if(FontType == RASTER_FONTTYPE )

if(FontType != TRUETYPE_FONTTYPE)