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

procedure TFormMain.Crossworddrucken1Click(Sender: TObject); // Drucken
var
  F: TextFile;
  s, oldFnt: string;
  I,e: word;
begin
  Printer.PrinterIndex := -1; // Standarddrucker einstellen
  oldFnt := Printer.Canvas.Font.Name; // Druckerfont merken
  Printer.Canvas.Font.Name := 'Coutier New';
  AssignPrn(F); // Textfile mit Drucker verbinden
  try
    Rewrite(F); // Textfile initialisieren
    with grdGrid do
    begin
      for e := 0 to ColCount - 1 do
        for I := 0 to RowCount - 1 do
        begin
          s := Format('%-1s', [Cells[e, I]]);
          Writeln(F, s);
        end
    end
    finally
      CloseFile(F); // Textdatei schließen
      Printer.Canvas.Font.Name := oldFnt; // Druckerfont zurücksetzen
    end;
  end;					

1:
2:
3:
4:
5:

für alle y tue
  für alle x in y tue 
      drucke zeichen[x,y]
      wenn x = letzte spalte dann
        drucke zeilenumbruch					

1:
2:
3:
4:
5:
6:
7:
8:

      for I := 0 to RowCount - 1 do
        for e := 0 to ColCount - 1 do
        begin
          s := Format('%-1s', [Cells[e, I]]);
          Write(F, s);
          if e = ColCount - 1 then
            writeln(F, s);
        end