diff --git a/rtl/inc/system.fpd b/rtl/inc/system.fpd
index dce69f1189..199ed4906f 100644
--- a/rtl/inc/system.fpd
+++ b/rtl/inc/system.fpd
@@ -51,3 +51,9 @@ Procedure Write (Args : Arguments);
 Procedure Writeln (Args : Arguments);
 Procedure Write (Var F : Text; Args : Arguments);
 Procedure WriteLn (Var F : Text; Args : Arguments);
+Function Copy(S : AStringType; Index,Count : Integer) : String;
+Function Copy(A : DynArrayType; Index,Count : Integer) : DynArray;
+Procedure SetLength(Var S : AStringType; Len : Integer);
+Procedure SetLength(Var A : DynArrayType; Len : Integer);
+Function Length(S : AStringType) : Integer;
+Function Length(A : DynArrayType) : Integer;