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

[Luckie]

So geht es:

Delphi-Quellcode:

if i * 2 + 1 < FContactList.Count then // Wenn Schluss ist, brauchts keine neue Seite usw. mehr
    begin 
      PrintAllSecondContact(Printer.Canvas, FContactList.Items[i * 2 + 1]);
      if i * 2 + 1 <> FContactList.Count - 1 then
        Printer.NewPage; 
    end;

Aber wie würde das ganze für drei Datensätze auf einer Seite aussehen?