Undeclared identifier

const
  DrawingStyles: array[TDrawingStyle] of Longint = (ILD_FOCUS,
    ILD_SELECTED, ILD_NORMAL, ILD_TRANSPARENT);
  Images: array[TImageType] of Longint = (0, ILD_MASK);
begin
  with ImageList do
    if HandleAllocated then
      ImageList_DrawEx(Handle, Index, DC, X, Y, 0, 0,
        GetRGBColor(BkColor), GetRGBColor(BlendColor),
        DrawingStyles[DrawingStyle] or Images[ImageType]);
end;

type
  { TdxRegIniWrapper }
 
  TdxRegIniWrapper = class
  private
 
    FRegIniObject: TObject;
    DrawingStyles: tobject;
  public
    function ReadBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer): Integer;
    procedure WriteBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer);
    function ReadString(const Section, Ident, Default: string): string;
    procedure WriteString(const Section, Ident, Value: string);
    function ReadInteger(const Section, Ident: string; Default: Longint): Longint;
    procedure WriteInteger(const Section, Ident: string; Value: Longint);
    function ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
    procedure WriteBool(const Section, Ident: string; Value: Boolean);
    procedure ReadSection(const Section: string; Strings: TStrings);
    procedure ReadSections(Strings: TStrings);
    procedure ReadSectionValues(const Section: string; Strings: TStrings);
    procedure EraseSection(const Section: string);
    procedure DeleteKey(const Section, Ident: string);
    procedure Erase(const Path: string);
    property RegIniObject: TObject read FRegIniObject write FRegIniObject;
  end;
 
procedure CheckDrawBitmap(Bitmap: TBitmap; W, H: Integer);
procedure ShadeRect(DC: HDC; ARect: TRect; ABkColor: TColorRef);
procedure TransparentDraw(DrawDC: HDC; Brush: HBRUSH; const R: TRect; ABitmap: TBitmap);
procedure TransparentDrawEx(DrawDC: HDC; Brush: HBRUSH; const FullRect, R: TRect; ABitmap: TBitmap);
function DrawTextRect(DC: HDC; const S: string; Len: Integer;
  const R, IndentRect: TRect; Format: UINT;
  Brush: HBRUSH; Font: HFONT; BkColor, TextColor: TColorRef;
  PLineTextHeight: PInteger): Integer;
procedure CheckScreenPosition(var P: TPoint; PopupWidth, PopupHeight, EditHeight: Integer);
procedure DrawImage(DC: HDC; X, Y, Index: Integer; ImageList: TImageList);
procedure DrawShadow(DC: HDC; ShadowRect: TRect; ShadowSize: Integer; Brush: HBRUSH);
function GetScreenWorkArea(const P: TPoint): TRect;