delphi 的twebbrower 中支持拷贝

在单元中加入以下语句就行
 initialization
  oleinitialize(nil);

finalization
  oleuninitialize;