rtl: fixed compile

packages/rtl/system.pas

@@ -359,7 +359,7 @@ const
 function Int(const A: Double): double;
 function Copy(const S: string; Index, Size: Integer): String; assembler; overload;
 function Copy(const S: string; Index: Integer): String; assembler; overload;
-procedure Delete(var S: String; Index, Size: Integer); assembler; overload;
+procedure Delete(var S: String; Index, Size: Integer); overload;
 function Pos(const Search, InString: String): Integer; assembler; overload;
 function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
 procedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;