diff --git a/programs/develop/fp/rtl/build.bat b/programs/develop/fp/rtl/build.bat
index 0d77aaecf5..d230579dff 100644
--- a/programs/develop/fp/rtl/build.bat
+++ b/programs/develop/fp/rtl/build.bat
@@ -1,3 +1,4 @@
 @echo off
+set FPCDIR=D:\_bin\FPC222\fpcbuild-2.2.2\fpcsrc
 fpcmake -Twin32
 make
\ No newline at end of file
diff --git a/programs/develop/fp/rtl/kos_def.inc b/programs/develop/fp/rtl/kos_def.inc
index c6395306f5..ddd15c5210 100644
--- a/programs/develop/fp/rtl/kos_def.inc
+++ b/programs/develop/fp/rtl/kos_def.inc
@@ -113,3 +113,10 @@ const
   VK_F10 = 121;
   VK_F11 = 122;
   VK_F12 = 123;
+
+/// siemargl add
+const 
+ ExtensionSeparator = '.';
+ AllowDirectorySeparators : set of char = ['/'];
+ AllowDriveSeparators : set of char = [];
+
diff --git a/programs/develop/fp/rtl/system.pp b/programs/develop/fp/rtl/system.pp
index a7324032e4..47357c8b7a 100644
--- a/programs/develop/fp/rtl/system.pp
+++ b/programs/develop/fp/rtl/system.pp
@@ -19,6 +19,10 @@ const
   MaxExitCode = 65535;
   MaxPathLen = 512;
 
+  InitialStkLen = 20480; /// siemargl
+
+
+
   UnusedHandle   : THandle = -1;
   StdInputHandle : THandle = 0;
   StdOutputHandle: THandle = 0;
diff --git a/programs/develop/fp/rtl/sysutils.pp b/programs/develop/fp/rtl/sysutils.pp
index 5be4231218..c5540d530f 100644
--- a/programs/develop/fp/rtl/sysutils.pp
+++ b/programs/develop/fp/rtl/sysutils.pp
@@ -162,7 +162,7 @@ begin
   ReleaseFileRecord(Handle);
 end;
 
-function FileTruncate(Handle: THandle; Size: Longint): Boolean;
+function FileTruncate(Handle: THandle; Size: Int64): Boolean;
 begin
   Result := False;
 end;