diff --git a/ExtPascalSamples/ExtPascalSamples.dpr b/ExtPascalSamples/ExtPascalSamples.dpr
index 5e81758..fe68547 100644
--- a/ExtPascalSamples/ExtPascalSamples.dpr
+++ b/ExtPascalSamples/ExtPascalSamples.dpr
@@ -26,10 +26,16 @@ const
   ServerName = 'ExtPascalSamples';
 
 begin
-  DateSeparator := '/'; ShortDateFormat := 'd/M/yyyy';
-  TimeSeparator := ':'; ShortTimeFormat := 'hh:mm';
+  {$IFDEF VER240}
+  with TFormatSettings do begin
+  {$ENDIF}
+    DateSeparator := '/'; ShortDateFormat := 'd/M/yyyy';
+    TimeSeparator := ':'; ShortTimeFormat := 'hh:mm';
+    DecimalSeparator := '.';
+  {$IFDEF VER240}
+  end;
+  {$ENDIF}
   FileMode      := fmShareDenyWrite + fmOpenReadWrite;
-  DecimalSeparator := '.';
 {$IFDEF DEFAULT}
   Service := TService.Create(ServerName, ExtPascalVersion);
   with Service do try
diff --git a/ExtPascalSamples/Session.pas b/ExtPascalSamples/Session.pas
index 3ba88fc..94b3412 100644
--- a/ExtPascalSamples/Session.pas
+++ b/ExtPascalSamples/Session.pas
@@ -41,7 +41,7 @@ function SelfSession : TSession;
 implementation
 
 uses
-  SysUtils, ExtPascalUtils, Ext, ExtForm, StrUtils,
+  SysUtils, ExtPascalUtils, Ext, StrUtils,
   {$IFNDEF WebServer}FCGIApp;{$ELSE}IdExtHTTPServer;{$ENDIF}
 
 function SelfSession : TSession; begin
diff --git a/Services.pas b/Services.pas
index 0665509..ce18334 100644
--- a/Services.pas
+++ b/Services.pas
@@ -188,7 +188,7 @@ function TService.Stop : integer; begin
 }
 function TService.Start : integer;
 const
-	Param : pchar = nil;
+	Param : pansichar = nil;
 begin
 	Result := 0;
   if FService = 0 then FService := OpenService(FManager, FName, SERVICE_ALL_ACCESS);