Cut и Copy отказываются работать
Вам нужно добавить следующие строки в конец unit:
Code:
initialization
OleInitialize(nil);
finalization
OleUninitialize;
©Drkb::03474
Автор: Song
Взято из http://forum.sources.ru