1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Function ListFiles(sDir: String): String;
Var
  sFileName: String;
  sFileList: String;
  sDirList: String;
  sSizeList: String;
  sRec: TWin32FindData;
  findHandle: THandle;
Begin

  If AnsiLastChar(sDir) <> '\' Then
  Begin
    sDir := sDir + '\';
  End;

  Try
    findHandle := FindFirstFile(PChar(sDir + '*.*'), sRec);

    If findHandle <> INVALID_HANDLE_VALUE Then
      Repeat
        sFileName := sRec.cFileName;

        If (sRec.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then Begin
          sDirList := sDirList + sDir + sFileName + '++';
        End
        Else
        Begin
          sFileList := sFileList + sDir + sFileName + '++';
          sSizeList := sSizeList + IntToStr(GetFileSize(PChar(sDir + sFileName))) + '++';
        End;
      Until FindNextFile(findHandle, sRec) = False;
  Finally
    //FindClose(findHandle);
  End;

  Result :=  sDirList + '|' + sFileList + '|' + sSizeList;
End;