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