Enviar texto a ventana del navegador

[Arturo.Molina]

Bueno, buceando por ahí, al final lo he conseguido...

Código Delphi [-]
procedure TfPrincipal.EnviarTexto(Texto: string);
var
    Window : THandle;
    i: integer;
begin
     if Texto <> '' then begin
       Window := FindWindow(NIL, PChar('Club Delphi - Brave') );

       //Comprobamos si está abierta la aplicación que recibirá los datos
       if Window = 0 then
         MessageDlg ('No se ha encontrado abierta la pagina "Club Delphi - Brave"', mtInformation, [mbok], 0)
       else
         for i := 1 to Length(Texto) do
           SendMessage(window, WM_CHAR, dword(Texto[i]), 0);
     end;
end;

Gracias a todos