Delphi - Problemas con reporte

Hola a todos tengo el siguiente procedimiento para realizar un reporte

procedure TForm2.Report1Click(Sender: TObject);
var
SomeFields: TStringList;
nIdx: integer;
MyTable: TTable;
aReport : TQuickRep;
begin
MyTable := TTable.Create(self);
SomeFields := TStringList.Create;
with MyTable do
begin
DatabaseName := 'DBEjemplo';
TableName := 'Custom';
ReadOnly := True;
Active := True;

for nIdx := 0 to FieldCount - 1 do
SomeFields.Add(Fields[nIdx].FieldName);
end;

aReport := nil;

QRCreateList(aReport, Self, MyTable, 'Listado de ejemplo', SomeFields);
areport.page.orientation := poLandscape;
Quickrep1.Preview;
aReport.Free;
MyTable.Free;
SomeFields.Free;
end;

enla linea donde se ejecuta QRCreateList(aReport, Self, MyTable, 'Listado de ejemplo', SomeFields);

me da el siguiente error:
Undeclared identifier QRCreateList como puedo resolver este problema.

Gracias de ante mano