[Biker89]

Вообщем нужна программа которая сама в заданную область экрана вводит заданный текст.пишу спамер из интереса)
смог сделать переход на заданный адрес вот так

procedure TForm1.adressClick(Sender: TObject);
begin
sleep (2000);
WinExec('"C:\Users\123\AppData\Local\Google\Chrome \Application\chrome.exe" http://www.ya.ru/',SW_show);

дальше пытаюсь в строку для поиска пытаюсь загнать какой нибудь текст

wnd:=FindWindow('Chrome_WidgetWin_0',nil);
if wnd <>0 then
begin
wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
SetWindowText(wnd1,'www.ya.ru');
end;

однако ничего не происходит,хотя цикл выполняется.отчаянно взываю к помощи)