Fonts have not the same size.

I am working on an application, in which the text rendered on the TCanvas (Delphi) should be rendered in the PDF document using QuickPDF functions. To my big surprise, I do not see the same result, when I compare Tcanvas output and PDF output. I become wast differences. 

here is small snippet, how I set PDF font via normal TFont

procedure SetFontOnQuickPDF(AFont:TFont; AQuickPDF:TQUickPDF);
var r,g,b:Double;
begin
if (not (fsBold in AFont.Style)) and (not (fsItalic in AFont.Style)) then AQuickPDF.AddTrueTypeFont(AFont.Name, 0);
if (fsBold in AFont.Style) and (not (fsItalic in AFont.Style)) then AQuickPDF.AddTrueTypeFont(AFont.Name + ' [Bold]', 0);
if (not (fsBold in AFont.Style)) and (fsItalic in AFont.Style) then AQuickPDF.AddTrueTypeFont(AFont.Name + ' [Italic]', 0);
if (fsBold in AFont.Style) and (fsItalic in AFont.Style) then AQuickPDF.AddTrueTypeFont(AFont.Name + ' [BoldItalic]', 0);
if fsUnderline in AFont.Style then AQuickPDF.SetTextUnderline(1) else AQuickPDF.SetTextUnderline(0);

  AQuickPDF.SetTextSize(AFont.Size);

end;

Has anybody encountered this kind of a problem?

thanx

Lyborko

Thank you for your reply

I am using Debenu PDF library 9.12

please look at this code

procedure TForm1.btn9Click(Sender: TObject);
var QuickPDF:TQuickPDF;
iPrintOptions:integer;
s:string;
begin
s:='I am working on an application, in which the text rendered on the TCanvas (Delphi) should be rendered in the PDF document using';
img1.Picture.Bitmap.Width:=img1.Width;    // here it is 595 pixels, which is width of A4 in "points"
img1.Picture.Bitmap.Height:=img1.Height;
img1.Picture.Bitmap.Canvas.Font.Name:='Arial';
img1.Picture.Bitmap.Canvas.TextOut(0,0, s);
QuickPDF:=TQuickPDF.Create;
if QuickPDF.UnlockKey('<insert key here>') = 1 then //DebenuPDFLibrary0912
begin
QuickPDF.SetOrigin(1);
QuickPDF.SetPageSize('A4');
QuickPDF.CompressImages(1);
iPrintOptions := QuickPDF.PrintOptions(0, 0, Application.ExeName);

QuickPDF.AddTrueTypeFont(img1.Picture.Bitmap.Canvas.Font.Name, 0);
QuickPDF.SetTextSize(img1.Picture.Bitmap.Canvas.Font.Size);

QuickPDF.DrawText(0,30, s);
QuickPDF.PrintDocument(QuickPDF.GetDefaultPrinterName(), 1, 1, iPrintOptions);
QuickPDF.SaveToFile(GetCurrentDir + '\Color.pdf');
end;
QuickPDF.Free;

end;

The result is strikingly different from TCanvas template. PDF has smaller font. I would like to include pictures, but ... 

may you help?