在Delphi中，遍歷文件夾中的文件可以使用TDirectory類的靜態方法GetFiles，它返回一個字符串數組，包含指定文件夾中的所有文件的完整路徑。以下是一個示例：
uses
System.IOUtils;
procedure TraverseFolder(const AFolder: string);
var
Files: TArray<string>;
FileName: string;
begin
Files := TDirectory.GetFiles(AFolder);
for FileName in Files do
begin
// 處理文件
ShowMessage(FileName);
end;
end;
你可以調用TraverseFolder過程，傳入要遍歷的文件夾路徑作為參數，然后在for循環中處理每個文件的邏輯。在上面的示例中，每個文件的完整路徑會通過ShowMessage函數彈出一個消息框顯示出來，你可以根據需要修改為自己的處理邏輯。
