TResource = record
  Next: PResource;
  RefCount: Integer;
  Handle: THandle;
  HashCode: Word;
  case Integer of
    0: (Data: TResData;);
    1: (Font: TFontData;);
    2: (Pen: TPenData;);
    3: (Brush: TBrushData;);
end;

struct TResource {
  PResource Next;
  int RefCount;
  THandle Handle;
  Word HashCode;
  TResData Data;
  TFontData Font;
  TPenData Pen;
  TBrushData Brush;
};