1:
2:
3:
4:

application.CreateForm(TSpielerdaten_drucken,Spielerdaten_drucken);
           Spielerdaten_drucken.QRMemo1.Lines.Assign(RichEdit1.Lines);
           Spielerdaten_drucken.QuickRep1.preview;
           Spielerdaten_drucken.Release;					

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

application.CreateForm(TSpielerdaten_drucken,Spielerdaten_drucken);
            if b_sort_name.Down = true then
            Spielerdaten_drucken.Query1.SQL.Text := 'select * from spielerdaten order by Name'
           else
           Spielerdaten_drucken.Query1.SQL.Text := 'select * from spielerdaten order by Mannschaft';
           Spielerdaten_drucken.Query1.Active:=true;
           Spielerdaten_drucken.QuickRep1.preview;
           Spielerdaten_drucken.Release;