закрыть вкладку оперы

[DinamoBrynsk]

нужно доработать этот код

procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
    s:string;
begin
//"вводим" изменённый адрес
h:=FindWindow(0,'яндекс-Opera');
if h <> 0 then
begin
  s:='www.rambler.ru';
  SendMessage(h, WM_SETTEXT, 0, longint(Pchar(s)));

  //"нажимаем" клавишу "Ввод" (Enter)
  SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);
  SendMessage(h, WM_KEYUP, VK_RETURN, 0);
end ;
end;

чтобы возможно было перенаправлять на другой сайт

[DinamoBrynsk]

хочу сделать так: если программа находит открытую вкладку яндекса, она перенаправляет программу на другой сайт