Форум АНТИЧАТ - неформатированный текст из буфера в TWebBrowser?

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

Код:

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;

применение:

Код:

Range := (editor.selection.createRange as IHTMLTxtRange);  

range.execCommand('Paste', false, getstringfromclipboard);

спасибо