1. Feche o Report Designer.

2. Localize a lista drop-down de componentes no topo do Object Inspector.

3. Selecione a banda de detalhe nesta lista (que deve ser nomeada ppDetailBand1).

4. Selecione a guia Eventos e dê um duplo clique sobre o evento BeforeGenerate.

5. Coloque o seguinte código no evento:

BuildEmployeeAddress(mmEmployeeAddress1.Lines);
BuildEmployeeAddress(mmEmployeeAddress2.Lines);

6. Vá até a declaração de classe do form. Substitua os comentários de declarações privadas com a seguinte declaração de procedimento:

procedure BuildEmployeeAddress(aStrings: TStrings);

7. Desloque-se abaixo do evento BeforeGenerate da banda de detalhe e insira o código mostrado abaixo como o procedimento BuildEmployeeAddress.

Nota: Neste evento, precisamos construir o mesmo endereço para dois componentes de notas diferentes. A fim de conseguir isso, podemos criar uma rotina geral (BuildEmployeeAddress) que podemos chamar para cada componente, ou podemos construir o endereço de uma variável string local e, em seguida, atribuí-la a ambas os componentes. Nós escolhemos a última abordagem para facilitar a leitura.

Nota: Esta rotina simplesmente recupera cada elemento do endereço do Empregado, concatenando e armazenando o resultado nos objetos TStrings passados no parâmetro. Os 'if' declarações buscar por cadeias vazias, garantindo que não há linhas em branco existentes no endereço.