TWebBrowser Fokus abgeben

[toms]

Ich wollte das Verhalten reproduzieren aber kann es leider nicht.
Bei mir bleibt der Focus immer im Edit.

(Konnte nicht den Delphi Tag nehmen, da er
interpretiert)

Code:

uses
  MSHTML, ActiveX;

// Anfangs Zu einer leeren Seite navigieren

procedure TForm1.FormCreate(Sender: TObject);
begin
  Webbrowser1.Navigate('about:blank');
end;

// Eine Zeile HTML Code hinzufügen

procedure TForm1.InsertHTML(s: string);
var
  WebDoc: HTMLDocument;
  WebBody: HTMLBody;
begin
  WebDoc := Webbrowser1.Document as HTMLDocument;
  WebBody := WebDoc.body as HTMLBody;
  WebBody.insertAdjacentHTML('beforeEnd', s+'
');
end;

// OnKeyPress im Edit

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then
 begin
   Key := #0;
   InsertHTML(Edit1.Text);
 end;
end;

initialization
  OleInitialize(nil);
finalization
  OleUninitialize;