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') );
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