diff --git a/FPCTests/fpcunitproject1.lps b/FPCTests/fpcunitproject1.lps
index 4d60343..c3f3150 100644
--- a/FPCTests/fpcunitproject1.lps
+++ b/FPCTests/fpcunitproject1.lps
@@ -8,6 +8,7 @@
       <Unit0>
         <Filename Value="fpcunitproject1.lpr"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <CursorPos Y="9"/>
         <UsageCount Value="23"/>
         <Loaded Value="True"/>
@@ -25,7 +26,6 @@
       <Unit2>
         <Filename Value="..\Source\FasmOnDelphi.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
         <TopLine Value="172"/>
         <CursorPos X="25" Y="195"/>
diff --git a/Fasm4Delphi b/Fasm4Delphi
index f41b4fa..afafa5a 160000
--- a/Fasm4Delphi
+++ b/Fasm4Delphi
@@ -1 +1 @@
-Subproject commit f41b4fa6dab8ab3a1c595096b6a7960ec2bce5be
+Subproject commit afafa5af7f5ca37ee2e64d8f47b9608ff63543e9
diff --git a/Source/FasmOnDelphi.pas b/Source/FasmOnDelphi.pas
index 1fa5730..27f2a4a 100755
--- a/Source/FasmOnDelphi.pas
+++ b/Source/FasmOnDelphi.pas
@@ -104,10 +104,6 @@ type
     OutStr:string;
     Lines:array of TFasmLine;
   end;
-  TErrorNamePair=record
-    Name:string;
-    Code:TFasmError;
-  end;
 
 const
   FasmPath='fasm';
@@ -364,12 +360,13 @@ end
 else
 begin
 {$ENDIF}
-  s:=FasmTemp+GetTickCount64.ToString();
   {$IFDEF MSWINDOWS}
+  s:=FasmTemp+GetTickCount.ToString();
   FileHandle:=CreateFile(PChar(s+'.in'),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
   WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
   CloseHandle(FileHandle);
   {$ELSE}
+  s:=FasmTemp+GetTickCount64.ToString();
   AssignFile(f,PChar(s+'.in'));
   rewrite(f);
   write(f,Source);
@@ -486,12 +483,13 @@ end
 else
 begin
 {$ENDIF}
-  s:=FasmTemp+GetTickCount64.ToString();
   {$IFDEF MSWINDOWS}
+  s:=FasmTemp+GetTickCount.ToString();
   FileHandle:=CreateFile(PChar(s),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
   WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
   CloseHandle(FileHandle);
   {$ELSE}
+  s:=FasmTemp+GetTickCount64.ToString();
   AssignFile(f,PChar(s));
   rewrite(f);
   write(f,Source);