[marcoszorrilla]

Prueba con este ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
n:Integer;
r:Integer;
begin

  for n:=0 to Memo1.Lines.Count -1 do
  begin
   S:=memo1.lines[n];
   r:=Pos('.mp3',S);
     if r >0 then
     begin
     Delete(s,r,4);
     memo1.Lines[n]:=s;
     end;
  end;
end;

Un Saludo.