Agregar etiquetas a cada linea de un memo

[Gerson12]

bueno mi duda es que quiero agregar ciertas etiquetas a cada linea del memo pero estoy usando un codigo que es este

Código Delphi [-]
if Memo1.Lines.Count >0 then
begin
Memo1.Lines[0]:='etiqueta1'+memo1.lines[0]+'etiqueta2';
 end;

pero en el codigo especifica que agrege las etiquetas a la primera linea pero quiero saber si se puede hacer alguna forma en la cual en el memo se agrege en cada linea que tenga un texto
Espero que esta ves si me entiendan
Gracias