Untitled

procedure TForm1.RvSystem1Print(Sender: TObject);
var szamlalo : integer;
    valto : boolean;
begin
  szamlalo:=1;
  valto:=true;
  with Sender as TBaseReport do
  begin
    AdoQuery1.DisableControls;
    AdoQuery1.First;
    while not AdoQuery1.Eof do
      begin
        if valto = true then
          begin
            FontColor:=clBlack;
            valto:=false;
          end
        else
          begin
            FontColor:=clBlack;
            valto:=true;
          end;
        PrintTab(trim(AdoQuery1.FieldByName('Esemeny').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Datum').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Ido').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Particio').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Leiras').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Zona_Osztaly').AsString));
        PrintTab(trim(AdoQuery1.FieldByName('Felhasznalo_Osztaly').AsString));
        AdoQuery1.Next;
        szamlalo:=szamlalo+1;
        NewLine;
        if szamlalo = 44 then
          begin
            NewPage;
            szamlalo:=1;
          end;
    end;
    AdoQuery1.EnableControls;
  end;