Extraer solo el nombre de un archivo sin su extencion

[coyule]

Buenas, tengo delphi7 winxp..... E buscado aqui en el foro como extraer el nombre de un archivo sin su extencion y no enconte algo claro, pongo este pero me lo da con su extencion

Claro este busca los archivos en x carpeta y te los muestra en un MEMO


procedure TForm1.Button1Click(Sender: TObject);
procedure RastreaDir(Dir: string);
var
FileSearch: TSearchRec;
begin
chDir (Dir);
FindFirst ('*.*', faDirectory, FileSearch);
while FindNext(FileSearch)=0 do
begin
if (FileSearch.Attr = faDirectory) then
begin
if (FileSearch.Name<>'..') then RastreaDir(FileSearch.Name+'\');
end else
{Pon aqui lo que quieras hacer con los ficheros encontrados}
{Put here anything to make with the find files}
Memo1.Lines.Add(FileSearch.Name);
end;
FindClose(FileSearch);
end;
begin
RastreaDir('G:\musica');
end;

[seoane]

Prueba con esto:

Memo1.Lines.Add(ChangeFileExt(FileSearch.Name,''));

[coyule]

funciono como queria......... Gracias seoane