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;