procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
 Cross: TfrxCrossView;
 i, j: Integer;
begin
if Sender is TfrxCrossView then
 begin
   Cross := TfrxCrossView(Sender);
    for j :=  1  to CarCountActive do
     for i :=  1  to  13  do
      begin
       Cross.AddValue([j], [i], [StringGrid3.Cells[i- 1 , j]]);
      end;
 end;
end;