Inserir items de um ListBox em memo quebrando por nº de palavras

Olá pessoal,

Estou tentando fazer o seguinte:

Numa ListBox tenho todos os campos de uma tabela. Quero passar esses campos para um memo, mas com um detalhe, que sejam jogadas em cada linha 7 palavras, ou seja, sete campos em cada linha para compor um select.

Alguém teria uma sugestão?

Grato,

Ilano.

Sendo mais claro, perciso disso:

No ListBox tenho os itens:

Campo1

Campo2

Campo3

Campo4

Campo5

Campo6

Campo7

Campo8

Campo9

Campo10

Campo11

Campo12

Campo13

Campo14

Campo15

Apóes percorrer o ListBox, no memo fique assim:

(Na linha 0) SELECT Campo1, Campo2, Campo3, Campo4, Campo5, Campo6, Campo7,

(Na linha 1) Campo8, Campo9, Campo10, Campo11, Campo12, Campo13, Campo14,

(Na linha 2) Campo15 FROM NOME_DA_TABELA