diff --git a/rtl/objpas/sysutils/syspchh.inc b/rtl/objpas/sysutils/syspchh.inc
index 931e95b474..74d59c7dd6 100644
--- a/rtl/objpas/sysutils/syspchh.inc
+++ b/rtl/objpas/sysutils/syspchh.inc
@@ -39,5 +39,6 @@ function StrPas(Str: PAnsiChar): string;overload;
 function StrPCopy(Dest: PAnsiChar; Const Source: string): PAnsiChar;overload;
 function StrPLCopy(Dest: PAnsiChar; Const Source: string; MaxLen: SizeUInt): PAnsiChar;overload;
 function StrAlloc(Size: cardinal): PAnsiChar;
+procedure StrDispose(Str: PAnsiChar);
 function StrBufSize(Str: PAnsiChar): Cardinal;