Inserir Tags em varias linhas de um texto de um TMemo

Olá Pessoal, eu estou tentando criar uma rotina que inseri tags em

todas as linhas de um texto, mais não estou tendo muito sucesso.

ex:

Texto no Memo

Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto

Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto
Texto texto texto texto texto
E ao clicar em um botão o texto tem que ficar assim inclusive as

linhas em branco.

Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />
Texto texto texto texto texto<br />

Alguém conhece uma forma de realizar esta ação?

Desde já agradeço a atenção!