Interner TWebBrowser füllt Arbeitsspeicher bis KnockOut

[bogdan]

@Bernhard:
In den Ereignissen passiert folgendes:

Code:

public
    CurDispatch: IDispatch;
    FDocLoaded: Boolean;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  CurDispatch := nil;
  FDocLoaded := False;
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    FDocLoaded := True;
    CurDispatch := nil;
  end;
end;

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
begin
  if CurDispatch = nil then CurDispatch := pDisp;
end;

procedure TForm1.WebBrowser1StatusTextChange(ASender: TObject; const Text: WideString);
begin
  StatusBar1.SimpleText := Text;
end;