Relatorio dinamico com o quick report

galera segui o emeplo desse endereço
https://www.devmedia.com.br/gerando-relatorio-dinamicos-usando-quickrep/352
pórem ta dando erro

quando ele fala para declarar as variaveis

Pagina:Integer;
QrLabel:array[1..8] of string;

QrDbText:array[1..8] of string;

Desc,Campo:array[1..8] of String;

Largura:Array[1..8] of Integer;

o delphi7 diz nao exitir esse variavel

enatão mudei pra string blz so que quando chega nessa parte da erro

QrLabel[i+1] := QrLabel.Create(Form2.QuickRep1.Bands.ColumnHeaderBand);

QrLabel[i+1].Parent := Form2.QuickRep1.Bands.ColumnHeaderBand;

QrLabel[i+1].Left := Col;

QrLabel[i+1].Top := 4;

QrLabel[i+1].Caption := ListBox2.Items.Strings[i];

QrLabel[i+1].Font.Style := [fsunderline,fsbold];

e não sao poucos

ld
[Warning] U_gerar_relatorio.pas(86): Return value of function 'PosCampo' might be undefined
[Error] U_gerar_relatorio.pas(349): Record, object or class type required
[Error] U_gerar_relatorio.pas(351): Record, object or class type required
[Error] U_gerar_relatorio.pas(353): Record, object or class type required
[Error] U_gerar_relatorio.pas(355): Record, object or class type required
[Error] U_gerar_relatorio.pas(357): Record, object or class type required
[Error] U_gerar_relatorio.pas(359): Record, object or class type required
[Error] U_gerar_relatorio.pas(365): Undeclared identifier: 'TQrDbtext'
[Error] U_gerar_relatorio.pas(365): Undeclared identifier: 'FrmRelatorios'
[Error] U_gerar_relatorio.pas(365): ')' expected but identifier 'QuickRep1' found
[Error] U_gerar_relatorio.pas(365): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(389): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(393): Record, object or class type required
[Error] U_gerar_relatorio.pas(395): Record, object or class type required
[Error] U_gerar_relatorio.pas(431): Undeclared identifier: 'Dm'
[Error] U_gerar_relatorio.pas(433): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(433): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(435): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(435): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(439): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(439): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(443): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(449): Missing operator or semicolon
[Error] U_gerar_relatorio.pas(459): Record, object or class type required
[Error] U_gerar_relatorio.pas(461): Record, object or class type required
[Error] U_gerar_relatorio.pas(467): '.' expected but ';' found
[Error] U_gerar_relatorio.pas(469): Illegal character in input file: 'ó' ($F3)
[Warning] U_gerar_relatorio.pas(471): Text after final 'END.' - ignored by compiler
[Fatal Error] Prj_IEP.dpr(28): Could not compile used unit 'U_gerar_relatorio.pas'


porem se qalguem souber como fazer um realrório dinamico me ajuda

usu delphi7
mysql 5.0
com os componentes dbxexpress