HTML Datei direkt aus Anwendung heraus Drucken?

[hm988]

hallo,

ich habe eben versucht diesen Quelltext zu verwenden

Delphi-Quellcode:

procedure TForm1.WebBrowser_V1NavigateComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var HTMLDoc: IHTMLDocument2;
  HTMLWnd: IHTMLWindow2;
  HTMLWindow3: IHTMLWindow3;
begin
  HTMLDoc := (Sender as TWebBrowser).Document as IHTMLDocument2;
  if HTMLDoc = nil then
    raise Exception.Create('Couldn''t convert the WebBrowser to an IHTMLDocument2');
  HTMLWnd := HTMLDoc.parentWindow;
  HTMLWindow3 := HTMLWnd as IHTMLWindow3;
  // Finally, we get to the print method
  HTMLWindow3.print;
end;

natürlich inklusive einem TWebbrowser und die besagte Unit MSHTML.PAS eingebunden, bekomme das ganze aber nciht zum laufen
dass die Klammer nach TObject in der Zeile verrutscht ist habe ich ausgebessert, hier aber meine Ferhlermeldungen

[Fehler] Unit1.pas(27): Undefinierter Bezeichner: 'WebBrowser_V1NavigateComplete'
[Fehler] Unit1.pas(27): ';' erwartet, aber '(' gefunden
[Fehler] Unit1.pas(28): '=' erwartet, aber ';' gefunden
[Fehler] Unit1.pas(33): Undefinierter Bezeichner: 'Sender'
[Fehler] Unit1.pas(33): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit1.pas(33): Operator ist auf diesen Operandentyp nicht anwendbar
[Fataler Fehler] websdruck.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

kann mir da jemand weiterhelfen ???