[Biker89]

сделал вот так

Код:

begin
{WinExec('"C:\Users\Наталия\AppData\Local\Google\Chrome\Application\chrome.exe" http://www.ya.ru/',SW_show);}
sleep(2000);
wnd:=FindWindow('Chrome_WidgetWin_0',nil);
 if wnd <>0 then
   begin
     wnd1:=FindWindowEx (wnd,0,'Chrome_RenderWidgetHostHWND',nil);
     setcursorpos (600,30);
     if wnd1 <>0 then
     begin
     SendMessage(wnd1,WM_SETTEXT,0,Integer(PChar('www.yan.ru')));
     setcursorpos (300,60);
     end
     else setcursorpos (0,0);
   end;

Админ: Пользуемся тегами, иначе последуют санкции!

цикл с wnd1 вообще не выполняется,выполняется ветка else