Android Question [Solved] B4A FTP Server and Delphi FTP Client

Private Sub HandleLIST
    Dim sb As StringBuilder
    sb.Initialize
    Dim dir As String = File.Combine(mServer.BaseDir, mTask.Path)
    'create the LIST format
    For Each f As String In File.ListFiles(dir)
        sb.Append(f).Append(mServer.EOL)
    Next
   
    AStream.Write(sb.ToString.GetBytes("UTF8"))
    AStream.SendAllAndClose
End Sub