mORMot Open Source

I am still failing at assigning the font. I am trying:

   
var
lPdf   : TPdfDocumentGDI;
lPage  : TPdfPage;
LogFont         :TLogFont;
tf      :tFont;

begin
     lPdf := TPdfDocumentGDI.Create;
     lPage := lPDF.AddPage;
{

otherworking code here

}
     tf := tFont.Create;
     tf.Assign(Form1.Canvas.Font) ;
     GetObject(tf.Handle, sizeof(LogFont), @LogFont) ;
     LogFont.lfEscapement   := 315 * 10;
     LogFont.lfOrientation  := 315 * 10;
     tf.Handle :=  CreateFontIndirect(LogFont) ;

     lPDF.Canvas.Page.Font.Assign(tf);

Up to the point where I try to create the rotated font all is well.
I can write text using:
   lPDF.Canvas.TextOut(xe, ye, 'MINUTES');
And draw lines using:
  lPDF.Canvas.MoveTo(GraphLeft,ye);
  lPDF.Canvas.LineTo(GraphRight,ye);
  lPDF.Canvas.Stroke;

The code compiles, but when it tries to assign the font, I get:
'Cannot assign a tFont to a tPDFFontTrueType' error message.

Any additional help would be greatly appreciated.

Les