uses
System,
LCLIntf,
LCLType,
LMessages,
Classes,
ClipBrd,
Controls,
Graphics,
Messages,
SysUtils,
Db,
DbCtrls,
StCommon,
StBarPN;