Webbrowser drucken geht nicht. Warum???

[Muellermilchtrinker]

Also jetzt versteh ich die Welt nicht mehr.
Davor lad ich mit dieser FUnktion den HTML Code in meinen Webbrowser:

Delphi-Quellcode:

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
   Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

Wenn ich jetzt so aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
{...}
begin
{...}
WB_LoadHTML(Webbrowser1,HTMLCODE.Text);
WB_PrintWithHeaderFooter(Webbrowser1, ' ', ' ');
end;

Dann druckt er mir ne leere Seite.
Wenn ich jetzt aber so aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
{...}
begin
{...}
WB_LoadHTML(Webbrowser1,HTMLCODE.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WB_PrintWithHeaderFooter(Webbrowser1, ' ', ' ');
end;

Dann druckt er alles einwandfrei.
Sprich die zwei Proceduren funktionieren nicht hintereinander.
Warum???
Ich hoffe ihr könnt mir helfen.