[Delphi] Отправить текст WebBrowser WinApi

//Допустим гружу http://redactor-online.ru/notepad.php
WB.Navigate('http://redactor-online.ru/notepad.php');
{теперь мне нужно передать текст WebBrowser
чтобы он отобразился в онлайн блокноте средствами WinApi, только не с помощью самого WebBrowser'а}
Как это организовать? может кто-то встречался с такой задачей?

 

Сурово глянь софтом который отображает структуру окон как там WebBrowser выглядит(где какие поля и.т.д), далее ищешь его окно FindWindowEx , получаешь хендл окна, получаешь хендл дочернего окна , шлешь сообщение на установку текста через PostMessage.
Но затея сама по себе сурова.

 

все разобрался=)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
handle:HWND;
className: array[0..255] of Char;
begin
webbrowser1.Silent:=true;
handle:=WebBrowser1.handle;
while (className <> 'Internet Explorer_Server')  do
  begin
    handle := GetWindow(handle, 5);
    GetClassName(handle, className, SizeOf(className));
  end;
s := 'this are example text';
for i := 1 to Length(s) do
      PostMessage(handle, WM_CHAR, Word(s[i]), 0);
end;