Tabelle mit Freereport drucken.

[Code]

Hallo.

ich möchte mit dem Freereport eine Tabelle drucken. Habe diesen Code dafür verwendet. Der Report bleibt aber leer. Was mache ich falsch.

Delphi-Quellcode:

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);

    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);

      Table1.Next;
      Inc(i);
    end;
  end;
end;