[NumLock]

Код:

uses
  Clipbrd,
  MSHTML,

begin
  WebBrowser1.Navigate('http://www.delphisources.ru/forum/showthread.php?p=89657#post89657');
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do Application.ProcessMessages;
  Clipboard.AsText:=(WebBrowser1.Document as IHTMLDocument2).body.outerText;
end;