Получить Hash несуществующего файла

[Shouldercannon]

Доброго времени суток!
Пытаюсь получить hash несуществующего файла (может быть такой случай если проверяешь много файлов)

procedure TFormMain.Button1Click(Sender: TObject);
var
  MD5: TIdHashMessageDigest5;
  FS: TFileStream;
begin
  try
    MD5 := TIdHashMessageDigest5.Create;
    try
      FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'bla.txt', fmOpenRead or fmShareDenyNone);
      if not (MD5.AsHex(MD5.HashValue(FS)) = '2FF496056906758C3486677AE42DE365') then ShowMessage('Не совпадает');
    except
    end;
  finally
    FreeAndNil(MD5);
    FreeAndNil(FS); // Если закомментировать, то ошибки нет
  end;
end;

Получаю ошибку из-за

FreeAndNil(FS);

Или лучше сделать дополнительные действия, например, проверить существуют ли файлы, а потом только проверять их hash?

[alextrof94]

Так у вас FS пустой, а вы его еще и освободить пытаетесь, при этом ошибка открытия FS пропадает в пустом except-end;

procedure TFormMain.Button1Click(Sender: TObject);
var
  MD5: TIdHashMessageDigest5;
  FS: TFileStream;
begin
  try
    MD5 := TIdHashMessageDigest5.Create;
    FS := TFileStream.Create(ExtractFilePath(Application.ExeName) + 'bla.txt', fmOpenRead or fmShareDenyNone);
    if not (MD5.AsHex(MD5.HashValue(FS)) = '2FF496056906758C3486677AE42DE365') then ShowMessage('Не совпадает');
    FreeAndNil(MD5);
    FreeAndNil(FS);
  except on E : Exception do
      // тут можно сделать конструкцию вида "если ошибка не равна ОТСУТСТВУЕТ ФАЙЛ - покажи мессагу"
      ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end; // не помню нужен или нет
end;