uses
System,
LCLIntf,
LCLType,
LMessages,
Classes,
Controls,
StdCtrls,
SysUtils,
cyStrUtils,
ExtCtrls,
Clipbrd;