Исправить Acces Violation при загрузке файла

[Человек_Борща]

Привет всем!

Суть проблемы:
Написал функцию для "разбора файла по составным" =)

функция сравнивает данные из файла с файлами рядом с программой.

выскакивает Acces Violation немогу найти уже раз 200 просмотрел код..
Может чужими глазами найдётся ошибка...

function CheckFilesList:Boolean;
var
  i:Integer;
  ListName,FilesURL,myDir:string;
  sFileName,sFileMD5,SFileCRC: array of string;
  FilesList:TStringList;
  FilesToGet:TStringList;
begin
  Result:=False;
  myDir:=IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
  ListName:=AdminForm.FilesListNameEdit.Text;
  FilesURL:=AdminForm.HTTPFilesEdit.Text;
  FilesList:=TStringList.Create;
  if FilesListLoaded then
  begin
  SendMessage(MainForm.Handle,STATUS_PROGRESS,0,DWORD(PChar(Translator('Проверка файлов','Checking Files'))));
  SendMessage(MainForm.Handle,PROGRESS_MAX,3,FilesList.Count-1);
  SendMessage(MainForm.Handle,CHECK_FULL_COUNT,0,FilesList.Count-1);
  Translator_MessageToLog('Файл-лист загружен, начинаю проверку файлов....','Files-list downloaded! Checking files...',MainForm.log);
  FilesList.LoadFromFile(myDir+ListName);
  SetLength(sFileName,FilesList.Count);
  SetLength(sFileMD5,FilesList.Count);
  SetLength(SFileCRC,FilesList.Count);

  for i:=0 to FilesList.Count -1 do
  begin
  SendMessage(MainForm.Handle,PROGRESS,3,i);
  sFileName[i] := Copy(FilesList.Strings[i], 1, Pos(':', FilesList.Strings[i]) - 1);
     case AdminForm.FilesHashGr.ItemIndex of
     0: sFileMD5[i] := Copy(FilesList.Strings[i], Pos(':', FilesList.Strings[i]) + 1, Length(FilesList.Strings[i]));
     1: sFileCRC[i] := Copy(FilesList.Strings[i], Pos(':', FilesList.Strings[i]) + 1, Length(FilesList.Strings[i]));
     end;
  end;
  SendMessage(MainForm.Handle,CHECK_CURRENT_FILE,0,DWORD(PChar(Translator('Текущий Файл: '+sFileName[i],'Current file: '+sFileName[i]))));

  for i:=0 to Length(sFileName)-1 do
  begin
    if (not FileExists(myDir+sFileName[i])) then
    begin
    FilesToGet.Create;
       case AdminForm.FilesHashGr.ItemIndex of
        0:
        begin
        FilesToGet.Add(FilesList[i]);
        end;

        1:
        begin
        FilesToGet.Add(FilesList[i]);
        end;
       end;
     end else
     begin
        case AdminForm.FilesHashGr.ItemIndex of
        0:
        begin
           if (MD5DigestToStr(MD5File(myDir+sFileName[i]))<>sFileMD5[i]) then
           begin
           FilesToGet.Add(FilesList[i]);
           end;
        end;

        1:
        begin
            if (FileCRC(myDir+sFileName[i])<>sFileCRC[i]) then
            begin
             FilesToGet.Add(FilesList[i]);
             end;
        end;
        end;
     end;
  end;
  SendMessage(MainForm.handle,PROGRESS,3,0);
  SendMessage(MainForm.handle,CHECK_CURRENT_FILE,3,DWORD(PChar('')));
  Translator_MessageToLog('Проверка файлов завершена! ','Checking files complited!',MainForm.log);
  SendMessage(MainForm.Handle,CHECK_NEW_SIZE,0,FilesToGet.Count);
  FilesList.Free;
  FilesToGet.SaveToFile(myDir+'FUnF');
  FilesToGet.Free;
  end else
  begin
  Translator_MessageToLog('[Фатальная Ошибка] Файл-лист не найден! Проверка прервана! Загрузка обновлений прервана!','[Fatal Error] Files-list not found! Checking Failed! Dowloading updates failed!',MainForm.log);
  Result:=False;
  end;
end;

[Пепел Феникса]

трассировка что показала?

[GunSmoker]

Как найти причину Access Violation - учитесь пользоваться отладчиком.