Ayuda con un memo

[cesarjbf]

Saludos


Resulta que utilice este codigo para encontrar archivos mp3 en x directorio:

for i:=1 to 5 do
begin

findfirst('c:\musica\'+I+'*.mp3',Anyfile,searchrec);


con este metodo encontro los archivos llamados musica1.mp3 y musica2.mp3,
y los pase a un memo:

memo1.lines.add(searchrec.name);
findclose(searchrec);

entonces en el memo muestra lo siguiente:

memo1
musica1.mp3
musica2.mp3

Lo que quiero es quitar los 3 ultimos caracteres ('.mp3') de manera que solo aparezcan los nombres del archivo encontrado y no la extension de estos
que metodo se recomienda para hacer esto?