Código Delphi [-] Memo1.Lines.Add(ChangeFileExt(FileSearch.Name,''));
Memo1.Lines.Add(ChangeFileExt(FileSearch.Name,''));