Hola ZayDun.
Por eso te preguntaba si la cadena buscada aparecía mas de una vez en el contenido del memo y si deseabas eliminar todas...
Si deseas borrar todas las ocurrencias de determinada cadena dentro del contenido del memo, podes hacer:
Código Delphi
[-]
uses StrUtils;
procedure BorrarOcurrencias(M : TMemo; const Texto : string);
var
p1, p2: Integer;
s: string;
begin
s := M.Text;
p2 := 1;
repeat
p1 := PosEx(Texto, s, p2);
Delete(s, p1, Length(Texto));
p2 := p1;
until (p1 = 0) or (p1 > p2);
M.Text := s;
end;
Uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
BorrarOcurrencias(Memo1, 'duracion=12:25"')
end;
Saludos