Código
var
S: Variant;
Str: String;
begin
S := WebBrowser1.Document;
Str := S.Selection.createRange().text;
Clipboard.AsText := Str;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009