Ширина выводимого текста в пикселях

String str = "WWWWW";
TLabel *tl = new TLabel(this);
tl->Caption = str;
int WIDTH = tl->Width; // Все хорошо - 55
  Form1->Canvas->TextOutA(10, WIDTH, str);
delete tl;

SIZE sz;
TCHAR *str = "WWWWW";
 HANDLE hWnd;
 hWnd = GetForegroundWindow();
GetTextExtentPoint32(hWnd, str, sizeof(str), &sz);
int WIDTH = sz.cy; // Выводит какие-то космические значения порядка 17825899
  Form1->Canvas->TextOutA(10, WIDTH, str);

SIZE sz;
const wchar_t *str = L"WWWWW";
 HANDLE hWnd;
 hWnd = GetForegroundWindow();
bool bl = GetTextExtentPoint32W(hWnd, str, sizeof(str), &sz);
if(!bl)ShowMessage("GetTextExtentPoint32W Return Error");
Form1->Canvas->TextOutA(10, 10, str);
Memo1->Lines->Add(sz.cy);

SIZE sz;
char *str;
AnsiString astr;
 
astr = Edit1->Text;
str = (char*)astr.c_str();
 
  HWND hwndDesktop = GetDesktopWindow();
  HDC hdcDesktop = GetDC(hwndDesktop);
  if(!GetTextExtentPoint32(hdcDesktop, str, astr.Length(), &sz))
    ShowMessage("Error");
 
Form1->Canvas->TextOut(10, 10, astr);
Memo1->Lines->Add(sz.cx);

String str;
str = "WWWWW";
int i = Canvas->TextWidth(str);
ShowMessage(i);