diff --git a/lib/delphi/src/Thrift.Transport.Pipes.pas b/lib/delphi/src/Thrift.Transport.Pipes.pas
index 44dfef7..10f4dec 100644
--- a/lib/delphi/src/Thrift.Transport.Pipes.pas
+++ b/lib/delphi/src/Thrift.Transport.Pipes.pas
@@ -912,7 +912,7 @@
     FReadHandle      := hPipe;
     FWriteHandle     := hPipeW;
   finally
-    if sd <> nil then LocalFree( Cardinal(sd));
+    if sd <> nil then LocalFree( NativeUInt(sd));
   end;
 end;
 
@@ -1117,8 +1117,8 @@
     else raise TTransportExceptionNotOpen.Create('CreateNamedPipe() failed ' + IntToStr(GetLastError));
 
   finally
-    if sd <> nil then LocalFree( Cardinal( sd));
-    if acl <> nil then LocalFree( Cardinal( acl));
+    if sd <> nil then LocalFree( NativeUInt(sd));
+    if acl <> nil then LocalFree( NativeUInt(acl));
     if everyone_sid <> nil then FreeSid(everyone_sid);
   end;
 end;