TFontDataEh = record
  Height: Integer;
  Pitch: TFontPitch;
  Style: TFontStyles;
  Charset: TFontCharset;
  Name: TFontName;
  Color: TColor;
end;