CSDN文答：怎样使TWebbrowser中的复制粘贴生效

在窗体的OnCreate事件中加入如下代码：
OleInitialize(nil);

在OnClose事件中加入代码：
OleUninitialize;

procedure TForm1.FormCreate(Sender: TObject);
begin
OleInitialize(nil);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
OleUninitialize;
end;

就可以使TWebbrowser支持复制粘贴了。