请问有这样的字符串转换函数吗？(100分)

//来自：lah998, 时间：2002-11-29 10:15:00, ID：1470353
//beta, :你哪去了啊！
一大早，当然上课去了呗。今天早上两堂课我都不敢逃：（
昨天晚上我回答了过后一直等你回，结果一看，你下线了，我当然闪人睡觉了呗：）

//我的问题应该要这么问:打开一个文件夹把文件夹后面的文件名全部显示
//包括子文件夹下的文件名和每个文件名的路径,这个路径只取打开这个文件夹后面的路径，
//前面的路径不显示。
那就应该这样，还简单些：

procedure TForm1.Button1Click(Sender: TObject);
var
// 加上这个变量定义：
i, PreFixLen: Integer;
MyFileList : TStringList;
begin
MyFileList := TStringList.Create;
ReadFileName(MyFileList,'c:/xxx/yyy');//随便填文件夹

// 加上这些：
// 因为前面要删除的部分的长度是一定的：
PreFixLen := Length(ExtractFilePath('c:/xxx/yyy'));

for i := 0 to MyFileList.Count - 1 do
MyFileList := Copy(MyFileList, PreFixLen + 1, MaxInt)
// 这样即可

Memo1.Text :=MyFileList.Text;//如何在这里显示“YYY”文件夹里的所有文件和后面的路径
MyFileList.Free ;
end;

这样应该可以了：）

beta,:你真行，这个是正解了！能聊聊吗？我的QQ147739389