After calling FtpFindFirstFile and until calling InternetCloseHandle, the application cannot call FtpFindFirstFile again on the given FTP session handle

#pas
  if FtpFindFirstFile(hFTP, PChar(fn), sRec, 0, 0) <> nil then
   begin
     fileSize := sRec.nFileSizeLow;
   end