diff --git a/Source/result.pair.pas b/Source/result.pair.pas
index b011938..d9329d7 100644
--- a/Source/result.pair.pas
+++ b/Source/result.pair.pas
@@ -98,10 +98,10 @@ procedure TResultPair<F, S>.DestroySuccess;
   LTypeInfo: PTypeInfo;
   LObject: TValue;
 begin
-  LTypeInfo := TypeInfo(F);
+  LTypeInfo := TypeInfo(S);
   if LTypeInfo.Kind = tkClass then
   begin
-    LObject := TValue.From<F>(FFailure.GetValue);
+    LObject := TValue.From<S>(FSuccess.GetValue);
     LObject.AsObject.Free;
   end;
 end;