Bilder verschieben beim drucken

[Kuehter]

Habe noch eine Frage

Ich lasse alles was hier steht in PDF drucken und ich habe insgemsagt 3 Zeilen*3 Spalten*3 Bilder pro Spalte und Zeile. Jetzt habe ich das schon so weit ein die ersten 9 Bilder ausgedruckt werden die in einer Linie sind.

nur wenn ich jetzt eine spalte nach unten gehe dann wird nichts mehr angezeigt weiß einer woran das liegt?

Delphi-Quellcode:

var
  DestRect : Trect;
  bmp : tarraybmp;
  verschiebung, next, counter, bmpmerker: integer;
  nextline, downpaper : integer;

begin
    bmp := bmpcall;
    verschiebung := 0;
    bmpmerker := 0;
    downpaper := 0;
    Printer.Title := 'Hello';

    Printer.BeginDoc;

    for nextline:= 0 to 2 do
    begin

        for counter:= 0 to 2 do
        begin;

            for next := 0 to 2  do
            begin
                DestRect.Left := 40 + verschiebung;
                DestRect.Top := 40 + downpaper;
                Destrect.Right := Printer.PageWidth -4500 + verschiebung;
                Destrect.Bottom := Printer.PageHeight -6550 + downpaper;

                Printer.Canvas.CopyRect(DestRect,bmp[bmpmerker].Canvas,bmp[bmpmerker].Canvas.ClipRect);
                inc(verschiebung, 500);
                inc(bmpmerker);
            end;

        verschiebung := verschiebung +200;
        end;

    downpaper := downpaper +700;
    end;

    Printer.EndDoc;
end;