Agregar etiquetas a cada linea de un memo

[roman]

Empezado por Gerson12

amigo muy buena tu respuesta pero al momento que genera las etiquetas que deseo los genera nuevamente al momento de presionar nuevamente el boton pero habra alguna forma de evitar esto espero mme hayan entendido

Tendrías que comprobar en cada línea si ya está la etiqueta, por ejemplo:

Código Delphi [-]
var iX : integer;
begin
for iX=0 to memo1.lines.count-1 do
  if Pos('etiqueta1', memo1.lines[iX]) <> 0 then
    memo1.lines[iX] := 'etiqueta1' + memo1.lines[iX] + 'etiqueta2';
end;

// Saludos