procedure DrawAAText(Text : String; X, Y : Integer; SendTo : TTabSheet);
  var bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  with bmp do begin
    //Transparent := True;
    Handle := GetDC(SendTo.Handle);
    Width := 200;
    Height := 50;
    Canvas.Font.Name := 'Microsoft Sans Serif';
    Canvas.Font.Size := 12;
    Canvas.Font.Style := [fsBold, fsItalic];
    Canvas.Brush.Color := $00FBE8DD;
    //Canvas.FillRect(Rect(0,0,200,50));
    try
      Canvas.TextOut(x, y, Text);
    finally
      Free;
    end;
    //BmpGBlur(bmp, 2);
    {try
      Handle := GetDC(SendTo.Handle);
      Canvas.Draw(X, Y, bmp);
    finally
      //ReleaseDC(MyCanvas.Handle, TabSheet1.Handle);
      Free;
    end;                             }

  end;
end;