How do I create a QReport group band at runtime?

Problem/Question/Abstract:

How do I create a group band at runtime?

Answer:

You can call the band's create constructor and set it's properties.

with TQRGroup.Create(Self) do
begin
  Parent := QuickRep1;
  Master := Parent;
  Expression := 'CustNo';
end;

with TQRDBText.Create(Self) do
begin
  Parent := QRGroup1;
  Dataset := QuickRep1.Dataset;
  DataField := 'CustNo';
end