procedure THIImg_Text._var_TextWidth;
var   SizeFont: TSize;
      s: string;
      hOldFont: HFONT;
begin
   s := ReadString(_Data,_data_Text,_prop_Text);
   hOldFont := SelectObject(GetDC(0), GFont.Handle);
   GetTextExtentPoint32(GetDC(0), PChar(s), Length(s), SizeFont);
   SelectObject(GetDC(0), hOldFont);
   dtInteger(_Data, SizeFont.cx);
   ImgReleaseDC;
end;

procedure THIImg_Text._var_TextHeight;
var   SizeFont: TSize;
      s: string;
      hOldFont: HFONT;
begin
   s := ReadString(_Data,_data_Text,_prop_Text);
   hOldFont := SelectObject(GetDC(0), GFont.Handle);
   GetTextExtentPoint32(GetDC(0), PChar(s), Length(s), SizeFont);
   SelectObject(GetDC(0), hOldFont);
   dtInteger(_Data, SizeFont.cy);
   ImgReleaseDC;
end;