tFTP.Host := 'ftp.isu.edu.tw';
  tFTP.Port := 21;
  tFTP.Username := 'anonymous';      tFTP.Connect;      if tFTP.Connected then begin
    tFTP.List(nil);        for i := 0 to tFTP.DirectoryListing.Count - 1 do begin
      case tFTP.DirectoryListing[i].ItemType of
        ditDirectory:
          begin
            mmo_Status.Lines.Add('DIR: '   tFTP.DirectoryListing[i].FileName);
          end;
        ditFile:
          begin
            mmo_Status.Lines.Add('FILE: ' tFTP.DirectoryListing[i].FileName);
           end;
      end;
    end;
  end;