Código Delphi [-] {Pon aqui lo que quieras hacer con los ficheros encontrados} {Put here anything to make with the find files} Memo1.Lines.Add(ChangeFileExt(FileSearch.Name, ''));
{Pon aqui lo que quieras hacer con los ficheros encontrados} {Put here anything to make with the find files} Memo1.Lines.Add(ChangeFileExt(FileSearch.Name, ''));