Delphi32- Hangup MyApp FindClose of SR.FileHandle

begin
  SR.FindHandle:=0;
  axlock.h:=0;

  IsFound :=  FindFirst(StartDir+udm_free.FileMask, faAnyFile-faDirectory, SR) = 0;
    if (isFound=false) then goto PickBoxSize;

  repeat   ArcLength:=length(udm_free.files);
           if (udm_free.lower=1) then SR.Name:=LowerCase(SR.Name);
           if (udm_free.res_field) and (udm_free.count<1) then begin  udm_free.files:=concat('00=',StartDir,SR.Name,#13#10);udm_free.count:=0;end else
           if (udm_free.res_field) and (udm_free.count<999)and(udm_free.count>0) then udm_free.files:=concat(udm_free.files,'Zip'+kDigits3[udm_free.count],'=',StartDir,SR.Name,#13#10) else
           if (udm_free.res_field) and (udm_free.count>999) then udm_free.files:=concat(udm_free.files,inttostr(udm_free.count),'=',StartDir,SR.Name,#13#10)
                      else
           udm_free.files:=concat(udm_free.files,SR.Name,#13#10);
           inc(udm_free.count);
           if (udm_free.hWndStatusbar<>0) then
               SendMessage(udm_free.hWndStatusbar,SB_SETTEXT, 0,integer(SR.Name));
           IsFound := FindNext(SR) = 0;
           if (IsFound)and(SR.FindHandle<>INVALID_HANDLE_VALUE)and(SR.FindHandle<>0) then
              axlock.h:=SR.FindHandle;
   until (not IsFound);
  if (axlock.h<>0)and(axlock.h<>INVALID_HANDLE_VALUE) then
     FindClose(axlock.h);