неформатированный текст из буфера в TWebBrowser?

как вставить неформатированный текст из буфера в TWebBrowser который переведен в режим редактирования?
и при этом как заменить событие вставки Ctrl+V в этом компоненте своим событием?
след. код. вставляет форматированный текст, а мне нужен простой (без тэгов и прочего)

Code:

function GetStringFromClipboard: WideString;
var  Data: THandle;
begin
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Result := Clipboard.AsText
else begin
Clipboard.Open;
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
try
if Data <> 0 then
Result := PWideChar(GlobalLock(Data))
else
Result := '';
finally
if Data <> 0 then
GlobalUnlock(Data);
Clipboard.Close;
end;
end;
end;

применение:

Code:

Range := (editor.selection.createRange as IHTMLTxtRange);  
range.execCommand('Paste', false, getstringfromclipboard);  

спасибо

 

окей, уже с сабжем разобрался.
помогите теперь, как перекрыть событие CTRL+V (вставка из буфера) в компоненту TWebBrowser?