Zwei Datensätze mit for-Schleife auf eine Seite drucken

[Luckie]

Ich habe eine Liste von Kontakten. Jetzt will ich auf jede Seite zwei datensätze drucken:

Delphi-Quellcode:

for i := 0 to FContactList.Count - 1 do
  begin
    PrintAllContactsHeader(Printer.Canvas);
    PrintAllContactsFooter(Printer.Canvas, Printer.PageNumber);
    PrintAllFirstContact(Printer.Canvas, FContactList.Items[(i div 2)]);
    PrintAllSecondContact(Printer.Canvas, FContactList.Items[((i + 1) div 2)]);
    Inc(PageNumber);
    if PageNumber mod 2 = 0 then
    begin
      Printer.NewPage;
    end;
  end;

Aber irgendwie gelingt es mir nicht. Sowie es im Moment ist, druckt er mir nur die Hälfte, die dafür aber teilweise doppelt und dreifach. Wobei die Seitenzahl aber stimmt.