FindFirst, FindNext

[NieL]

Будет ли лишним добавить после FindFirst, перед try проверку на INVALID_HANDLE_VALUE?

procedure Tlocal_upds_analyzer.local_upds_prepare(var APrepared: TList<TPoint>);
var
  find_file_data: _WIN32_FIND_DATAW;
  hFind: Cardinal;
begin
  hFind := FindFirstFile(PChar(Flocal_upds_dir + 'upd_*_to_*.zip'),
    find_file_data);
  // if hFind <> INVALID_HANDLE_VALUE then
  try
    repeat
      // ...
    until
      not FindNextFile(hFind, find_file_data);
  finally
    FindClose(hFind);
  end;

end;

[_-Re@l-_]

Проверки не бывают лишними. Добавь.