Using TRichText.Draw on printer canvas

I am using Draw on printer canvas. If the style is changed in the text the screen looks like:

This is a test

When I draw it to the canvas using Draw it looks like:

Thiis a test

I am using WPTools4Bundle in Delphi 4