Delphi Скопировать выбранный текст TWebBrowser

[Lomanu4]

//Подключить ClipBrd

var
  S: Variant;
  Str: String;
begin
  S := WebBrowser1.Document;
  Str := S.Selection.createRange().text;
  Clipboard.AsText := Str;