[Bargest]

Если дело в эксепшене, то наверное как-то так.

Код:

try
  // unpack code
  Res.Free;
except
  Res.Free;
  Result := false;
end;

Ну или запихнуть все в общий try-finally, чтоб не дублировать Res.Free;