послать текст активному полю ввода текущего активного окна

[snakesoftware]

Здравствуйте! Есть задача: послать текст активному полю ввода текущего активного окна, т.е. тому элементу на котором сейчас находится курсор. Ниже привожу код, который это делает, но есть одна проблема. Не работает в браузерах... Как решить эту проблему? Спасибо.

var
  h:hwnd;
  PID:dword;
  lpgui: tagGUITHREADINFO;
  hCaret:HWND;
  txt:string;
begin
  txt:='TEXT';
  h:=GetForegroundWindow;
  PID:=GetWindowThreadProcessId(h);
  lpgui.cbSize:=sizeof(tagGUITHREADINFO);
  GetGUIThreadInfo(PID, lpgui);
  hCaret:=lpgui.hwndCaret;
  SendMessage(hCaret,WM_SETTEXT,0,DWORD(PChar(txt)));
end;