Ctrl+A и Ctrl+C в компоненте TWebBrowser

procedure TForm1.Button1Click(Sender: TObject);
  var
  URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
  URL := Edit1.Text;
  Flags := 0;
  TargetFrameName := 0;
  Postdata := 0;
  Headers := 0;
  EmptyParam;
  WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
end;
initialization
  // prevent floating point errors
  Set8087CW($133F);
end.

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
  ????????????????????????
end;