diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index dd6c67fc3d..75cd3cf19a 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -71,6 +71,8 @@ begin
   FreeMem(aMem);
 end;
 
+exports 
+  WasiAlloc,WasiFree;
 
 function ConvertToFdRelativePath(path: RawByteString; out fd: LongInt; out relfd_path: RawByteString): Word; forward;