Maße der *.pdf verändert

[Chuqa]

Hallo,

ich habe folgendes Problem. Und zwar schreibe ich mittels einer gtPDFEngine ein PDF-File mit folgendem Code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  gtPDFEngine1.BeginDoc;
     try
     gtPDFEngine1.Line(5,21,205,21);
     i:=0;
      while i < 200 do
        begin
        inc(i,10);
        gtPDFEngine1.Line(i,20,i,22);
        gtPDFEngine1.TextOut(i-1,23,inttostr(Round(i/10)));
        end;
       finally
      gtPDFEngine1.EndDoc;
   end;
end;

Klappt auch so ganz gut, nur unter WindowsXP mit großen Schriftarten ist das PDF nicht mehr in der Originalgröße, sondern ist ca. bei 17cm Schluss. Also alles was danach kommt verschwindet im Nirgendwo. Woran liegt das und wie kann ich dem entgegensteuern . Vielen Dank schonmal.

Gruß Chuqa