var
  gGraphics : TGPGraphics;
  gPen : TGPPen;
  gBrush : TGPBrush ;
  gTextBrush : TGPBrush ;
  gFillBrush : TGPSolidBrush ;
  gColor : TGPColor ;
  gFontFamily : TGPFontFamily;
  gFont       : TGPFont;
  gPenColor : TColor ;
  gRect : TGPRectF ;
  gStrFormat : TGPStringFormat ;
  gSize : TSize ;
begin
    
gGraphics := TGPGraphics.Create(FTmpBitmap.Canvas.Handle);
    gGraphics.SetSmoothingMode(SmoothingModeAntiAlias);
    gGraphics.SetPixelOffsetMode(PixelOffsetModeHighQuality);
    gGraphics.SetTextRenderingHint(TextRenderingHintSystemDefault);

    if not stSelected
     then gPenColor := clBlack
     else gPenColor := clRed;

    gColor     := MakeColor(255, GetRValue(gPenColor), GetGValue(gPenColor), GetBValue(gPenColor));
    gPen       := TGPPen.Create(gColor);
    gFillBrush := TGPSolidBrush.Create(gColor) ;

    gColor    := MakeColor(255, GetRValue(ShapeLabelColor), GetGValue(ShapeLabelColor), GetBValue(ShapeLabelColor));
    gBrush    := TGPSolidBrush.Create(gColor) ;

    gColor    := MakeColor(255, GetRValue(gPenColor), GetGValue(gPenColor), GetBValue(gPenColor));
    gTextBrush := TGPSolidBrush.Create(gColor) ;

    // Имя шрифта
    gFontFamily := TGPFontFamily.Create('Arial');
    // Шрифт
    gFont       := TGPFont.Create(gFontFamily, FTmpBitmap.Canvas.Font.Size + 3, FontStyleRegular, UnitPixel);
    // формат
    gStrFormat := TGPStringFormat.Create(StringFormatFlagsNoClip) ;

      gRect.X := textR.Left - 3 ;
      gRect.Y := textR.Top ;
      gRect.Width := textR.Right ;
      gRect.Height := textR.Bottom ;

      gGraphics.DrawString(WideString(ShapeLabelText), -1, gFont, gRect, gStrFormat, gTextBrush);