diff --git a/packages/libffi/src/ffi.manager.pp b/packages/libffi/src/ffi.manager.pp
index 10a86c797f..8f65347262 100644
--- a/packages/libffi/src/ffi.manager.pp
+++ b/packages/libffi/src/ffi.manager.pp
@@ -796,7 +796,7 @@ end;
 
 function TFFIFunctionCallback.GetCodeAddress: CodePointer;
 begin
-  Result := fData;
+  Result := fCode;
 end;
 
 constructor TFFIFunctionCallback.Create(aContext: Pointer; aCallConv: TCallConv; constref aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags);