uses
System,
LCLType,
LCLProc,
LCLIntf,
LMessages,
Menus,
Graphics,
Classes,
Controls,
sysutils,
DB,
StdCtrls,
DbCtrls;