Result := FindFirst(SourcePrefix+'\'+RootDir + '\*.*', FaAnyFile, sr);
if Result <> 0 then
begin
SysUtils.findclose(sr);
ShowMessage('CopyUpdate: ' + SysUtils.SysErrorMessage(SysUtils.GetLastOSError) + ' ' + RootDir);
Halt;
exit;
end;
findnext(sr); {skip . and ..}
while findnext(sr) = 0 do...