1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
  if PrintDialog1.Execute then
  begin
    fak := 3.779 * (Printer.PageWidth / 2892); //meine Seite ist 771 breit, fak = faktor = wegen Druckerauflösung
    with Printer do                            //Printer.PageHeight wäre die Seitenhöhe in Pixel 
    begin
      BeginDoc;
      TextMase := Canvas.TextExtent('dein text');
      KReck1 := TextPos(KReck,TxtMase,KLabl.Alignment);  //TextPos übergibt Position von Klabl an KReck1
      Canvas.TextOut(KReck1.Left * fak, KReck1.Top * fak,'dein text');   //fak gehört natürlich schon in TextPos
      .....					

1:
2:
3:
4:

var d : text;
...
writeln (d,'1.Zeile');
writeln (d,'');  // Leerzeile