[Delphi5] Schreiben im XOR-Mode

Hallo,
wie kann man in Delphi mit TCanvas im XOR-Mode schreiben? Der Pen kann so zeichnen, aber Textout benutzt den Font, und der kann das wohl nicht.

Vilen Dank
Thomas