Drukowanie listView w 2 kolumnach

var
Line: Integer;
PrintText: TextFile;
ile:byte; niewiem:Tfont;
begin
plik:=TIniFile.Create('dane\configure.cfg');//tworzenie pliku
if form2.PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);

Printer.Canvas.Font.Name:=(plik.Readstring('Drukowanie','czcionka','Arial'));
Printer.Canvas.Font.Color:=plik.ReadInteger('Drukowanie','Color',0);
Printer.Canvas.Font.Size:=plik.ReadInteger('Drukowanie','rozmiar',6);
for Line := 0 to ListView1.Items.Count-1 do
  {przerwa jest po to aby był margines inaczej obcina}

// Writeln(PrintText, ' '+listbox1.items[Line]);
Writeln(Printtext,' '+(form3.ListView1.Items[line].Caption)+' - '+
(form3.ListView1.Items[line].SubItems[0])+' - '+(form3.ListView1.Items[line].SubItems[2])+' CD');

Może to nieładnie tu wygląda ale jak w podobny sposób wydrukować aby na kartce powstały 2 kolumny jeśli drukuję w taki sposób jak wynika to z tego kodu to pozostaje mi ponad połowa kartki pusta

A może wykorzystać canvas.textOut
Może mi ktoś trochę pomóc??