TextWidth problem u iscitavanju sirine BOLD teksta

Code:

// Label1 i Label2 su recimo razlicitog stila, jedan je obican drugi je bold
#include <memory>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   std::auto_ptr<TControlCanvas>LabelCanvas( new TControlCanvas() );

   LabelCanvas->Control = Label1;
   LabelCanvas->Font = Label1->Font;
   ShowMessage( LabelCanvas->TextWidth( Label1->Caption ) );

   LabelCanvas->Control = Label2;
   LabelCanvas->Font = Label2->Font;
   ShowMessage( LabelCanvas->TextWidth( Label2->Caption ) );
}

Code:

int __fastcall TForm1::GetTextWidth(AnsiString Text, TFont *F)
{
    int res = 0;
    HDC Dc;
    HFONT SFont = 0;
    TSize t;
    Dc = GetDC(0);
    __try {
        SFont = SelectObject(Dc, F->Handle);
        if (GetTextExtentPoint32A(Dc, Text.c_str(), Text.Length(), &t)) {
            res = t.cx;
        }
    }
    __finally {
        SelectObject(Dc, SFont);
        ReleaseDC(0, Dc);
    }
    return res;
}

Code:

struct job {
  job() {
   //do code 
 }
 ~job(){
  //on exit
 }
};

Code:

CRITICAL_SECTION cs;
EnterCriticalSection(&cs);
__try {
    /// neki kod koji moze da baci exception     
}
__finally {
 /// cleanup
 LeaveCriticalSection(&cs);
}

Code:

class PACKAGE MOJDBGRID: public TDBGrid
{
protected:
   int __fastcall StringWidth(AnsiString text,TFont *fF);
   void __fastcall DrawTitleCell (int ACol, int ARow, const Types::TRect &ARect,          ->za title 
                                         Grids::TGridDrawState AState);
   void __fastcall DrawColumnCell(const TRect &Rect,
                                          int DataCol, TColumn *Column,TGridDrawState State);  ->za nizove kolona
};
//---------------------------------------------------------------------------
void __fastcall MOJDBGRID::DrawTitleCell (int ACol, int ARow, const Types::TRect &ARect, Grids::TGridDrawState AState)
{
   @nikomak bi izgledalo ovako
   int text_length = StringWidth(sText,Columns->Items[nDataCol]->Title->Font);
    .............................
   @X-Files
   isto samo moram da ubacim fake TLabel, new TLabel(this), delete Tlabel etc
   deklarisem parent, poziciju etc...
}//---------------------------------------------------------------------------
int __fastcall MOJDBGRID::StringWidth(AnsiString text,TFont *fF) 
{
   int res = 0;
   HDC Dc;
   HFONT SFont = 0;
   TSize t;
   Dc = GetDC(0);
   __try
   {
      SFont = SelectObject(Dc, fF->Handle);
      if (GetTextExtentPoint32A(Dc, text.c_str(), text.Length(), &t))
         res = t.cx;
   }
   __finally
   {
      SelectObject(Dc, SFont);
      ReleaseDC(0, Dc);
   }
   return res;
}

Code:
 
 SFont = SelectObject(Dc, fF->Handle);
      if (GetTextExtentPoint32A(Dc, text.c_str(), text.Length(), &t))

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   try
   {
      // prevremeni return ...
      return;
   }
   __finally
   {
      ShowMessage( "Garantovano se izvršava, kao što je i predviđeno strukturom!" );
   }
}

Code:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   try
   {
      try
      {
         // Proizvodi izuzetak...
         int x = StrToInt( "abc" );
      }
      catch ( const Exception &e )
      {
         // prevremeni return, ali bez obzira, očekujemo da se prethodno izvrši i finally blok...
         return;
      }
   }
   __finally
   {
      ShowMessage( "Da li je izvršeno, proverite sami..." );
   }
}

Code:

class PACKAGE MOJDBGRID: public TDBGrid
{
protected:
   void __fastcall DrawTitleCell (       int ACol, int ARow, const Types::TRect &ARect,
                                         Grids::TGridDrawState AState);
   int __fastcall StringWidth(AnsiString text,TFont *fF);
};
//------------------------ implementacija ------------------------------------
//---------------------------------------------------------------------------
void __fastcall MOJDBGRID::DrawTitleCell (int ACol, int ARow, const Types::TRect &ARect, Grids::TGridDrawState AState)
{
   int nDataCol = ACol;
   AnsiString sText = Columns->Items[nDataCol]->Title->Caption;

   int text_length1 = Canvas->TextWidth(sText);                                                // promeni title u bold i videces
   int text_length2 = StringWidth(sText, Columns->Items[nDataCol]->Title->Font);    // da nema veze sa vezom, a zasto nemam pojma
}                                                                                                                // po mom licnom misljenju, sramota je takav propust
//---------------------------------------------------------------------------      // jer nema nikakve logike!
int __fastcall MOJDBGRID::StringWidth(AnsiString text,TFont *fF) 
{
   int res = 0;
   HDC Dc;
   HFONT SFont = 0;
   TSize t;
   Dc = GetDC(0);
   __try
   {
      SFont = SelectObject(Dc, fF->Handle);
      if (GetTextExtentPoint32A(Dc, text.c_str(), text.Length(), &t))
         res = t.cx;
   }
   __finally
   {
      SelectObject(Dc, SFont);
      ReleaseDC(0, Dc);
   }
   return res;
}
//---------------------------------------------------------------------------

Code:
 SFont = SelectObject(Dc, fF->Handle);