Проверить активность команды Copy в TWebBrowser

procedure TForm1.ButtonIsCopyEnabledClick(Sender: TObject); 
begin 
  if Webbrowser1.OleObject.Document.queryCommandEnabled('Copy') then 
    ShowMessage('Copy is active/ Copy ist aktiv'); 
end;