uses
System,
LCLIntf,
LCLType,
LMessages,
Messages,
Classes,
Graphics,
Controls,
GR32,
XGR32_Procedures;