FileList.Strings[i] 是文件路径(含文件名):

StringReplace(FileList.Strings[i],ExtractFilePath(FileList.Strings[i]),'',[rfReplaceAll])