UnitUnit5
Declaration
HH_Popup = record cbStruct: Integer; hinst: THandle; idString: Cardinal; pszText: PChar; pt: TPoint; clrForeground: TColor; clrBackground: TColor; rcMargins: TRect; pszFont: PChar; end;