1. Adicione a seguinte variável para o setor privado do form:

FColors: TList;

2. Adicione o seguinte código ao evento OnCreate do formulário:

3. Adicione o seguinte código ao evento OnDestroy do formulário:

procedure TfrmRegions.FormDestroy(Sender: TObject);
begin
  FColors.Free;
end;

4. Dê um duplo-clique sobre o componente Report para acessar o Report Designer.

5. Clique no espaço em branco da banda de detalhe.

6. Selecione a guia Eventos do Object Inspector e clique duas vezes sobre o evento BeforeGenerate. Adicione o seguinte código:

Nota: Este evento define a cor da region dos campos e a fonte do Memo. As cores eram para combinar com as imagens bitmap escolhidas a dedo. Há apenas um registro por coluna, o DataPipeline. Propriedade TraversalCount (que controla o número de registos atravessado) pode ser utilizada para mapear a cor do objecto TList para a coluna.