1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses
  Printers, //...

//...

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: Integer;
  PrintText: System.Text;
begin
 if PrintDialog1.Execute then
 begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := ListBox1.Font;

  for Line := 0 to ListBox1.Items.Count - 1 do
   Writeln(PrintText, ListBox1.Items[Line]);

  System.Close(PrintText);
 end;
end;