Delphi-PRAXiS - Delphi Druckerausgabe falsch skaliert

Hallo, irgendwo ist wahrscheinlich ein dummer Fehler... aber ich bin dabei, mehrere Bilder in Kacheln über eine Druckseite zu ziehen.
Die Bilder werden allerdings viel zu klein.

Irgendwo hab ich wahrscheinlich ein paar Berechnungen verbockt, seht euch einfach den Code an und sagt mir, ob ihr was entdecken könnt.
(Im Moment ist auch klar, dass die Bilder ohne RÜcksicht auf Verluste skaliert werden)

Initialisierung des Druckers und Bezug der Abmaßungen:

Delphi-Quellcode:

			procedure TForm2.BPrinterCheckClick(Sender: TObject);

var pw,ph,     //page

    apw,aph,   //available page

    offx,offy, //border offsets

    numx,numy, //number of icons

    dimx,dimy: //dimensions of icons

    Integer;

begin

  Printer.PrinterIndex := CBPrinters.ItemIndex;

  SetMapMode(Printer.Handle, MM_LOMETRIC);

  pw   := GetDeviceCaps(Printer.Handle,HORZSIZE) *10;

  ph   := GetDeviceCaps(Printer.Handle,VERTSIZE) *10;

  offx := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX);

  offy := GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY);

  apw := pw - 2*offx;

  aph := ph - 2*offy;

  numx := SENumX.Value; //Anzahl Bilder X

  numy := SENumY.Value; //Anzahl Bilder Y

  //dimension = space div number

  dimx := apw div numx;

  dimy := aph div numy;

  //storing it for later

  prec.pw   := pw;

  prec.ph   := ph;

  prec.apw  := apw;

  prec.aph  := aph;

  prec.numX := numx;

  prec.numY := numy;

  prec.dimX := dimx;

  prec.dimY := dimy;

  prec.offx := offx;

  prec.offy := offy;

  LPageSize.Caption     := inttostr(pw) + ' x ' + inttostr(ph) + ' mm';

  LRealPageSize.Caption := inttostr(apw) + ' x ' + inttostr(aph) +

    ' mm (Ränder: ' + inttostr(offx) + ';' + inttostr(offy) + ' mm)';

  LDimIcon.Caption := inttostr(dimx) + ' x ' + inttostr(dimy) + ' mm';

end;

Druckschleife:

Delphi-Quellcode:

			procedure TForm2.BPrintClick(Sender: TObject);

var temp: TBitmap32;

    tmpb: TBitmap;

    i,row,col,iconheight: Integer;

    dst,src,txt: TRect;

    txtheight,x,y: Integer;

begin

  if (MessageDlg('Wirklich drucken?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then

    begin

      printer.BeginDoc;

      row := 0;

      col := 0;

      temp := TBitMap32.Create;

      temp.Width  := prec.dimX;

      temp.Height := prec.dimY;

      tmpb := TBitmap.Create;

      tmpb.Width := prec.dimX;

      tmpb.Height := prec.dimY;

      temp.Canvas.Font.Size := 30;

      txtheight := Abs(SELines.Value * temp.Canvas.TextHeight('gf'));

      for i := 0 to BList.Bitmaps.Count -1 do

        begin

          temp.Clear(clwhite);

          src := rect(0,0,BList.Bitmap[i].Width,BList.Bitmap[i].Height);

          dst := rect(0,0,temp.Width,temp.Height - txtHeight);

          txt := rect(0,temp.Height - txtHeight,temp.Width,temp.Height);

          temp.StretchFilter := sflanczos;

          temp.Draw(dst,src,BList.Bitmap[i]);

          temp.Textout(txt,DT_CENTER+DT_WORDBREAK+DT_PATH_ELLIPSIS+DT_NOPREFIX,

                       ImageNames[i]);

          if CBFlip.Checked then temp.FlipVert;

          tmpb.Assign(temp);

          x := prec.dimX * col + prec.offx;

          y := prec.dimY * row + prec.offy;

          printer.Canvas.Draw(x,y,tmpb);

          Inc(col);

          if col = prec.numX then

            begin

              col := 0;

              Inc(row);

              if row = prec.numY then

                begin

                  row := 0;

                  printer.NewPage;

                end;

            end;

        end;

      printer.EndDoc;

    end;

end;