uses
System,
Classes,
LResources,
Controls,
ExtCtrls,
DB,
DBCtrls,
Graphics,
LMessages,
LCLType,
Dialogs,
SysUtils,
jinputconsts;