Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как прочитать выделенный текст из IE?

01.01.2007
uses
  SHDocVw_TLB
; // http://www.euromind.com/iedelphi if don't have that unit
 
function GetSelectedIEtext: string;
var
  x
: Integer;
 
Sw: IShellWindows;
  IE
: HWND;
begin
  IE
:= FindWindow('IEFrame', nil);
  sw
:= CoShellWindows.Create;
 
for x := SW.Count - 1 downto 0 do
   
if (Sw.Item(x) as IWebbrowser2).hwnd = IE then begin
     
Result := variant(Sw.Item(x)).Document.Selection.createRange.Text;
     
break;
   
end;
end;

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php