2 files changed, 12 insertions, 8 deletions
diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index 52b0f96a..50214ad0 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -46,6 +46,7 @@ uses
   {$IFDEF UseSerialPort}
   zlportio,
   {$ENDIF}
+  SDL,
   UTime;
 
 procedure TLCD.WriteCommand(B: Byte);
@@ -64,7 +65,7 @@ begin
     zlioportwrite(Data, 0, B and $F0);
     zlioportwrite(Control, 0, $03);
 
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 
     zlioportwrite(Control, 0, $02);
     zlioportwrite(Data, 0, (B * 16) and $F0);
@@ -74,7 +75,7 @@ begin
   if (B=1) or (B=2) then
     Sleep(2)
   else
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 {$ENDIF}
 end;
 
@@ -82,23 +83,26 @@ procedure TLCD.WriteData(B: Byte);
 // Wysylanie danych
 begin
 {$IFDEF UseSerialPort} 
-  if not HalfInterface then begin
+  if not HalfInterface then
+  begin
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, B);
     zlioportwrite(Control, 0, $07);
-  end else begin
+  end
+  else
+  begin
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, B and $F0);
     zlioportwrite(Control, 0, $07);
 
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, (B * 16) and $F0);
     zlioportwrite(Control, 0, $07);
   end;
 
-  TimeSleep(0.1);
+  SDL_Delay( 100 );
   Inc(Position);
 {$ENDIF}
 end;
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index d3cd4ac7..2dd745fd 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -89,14 +89,14 @@ var
 implementation
 
 {$ifdef DebugDisplay}
-{$ifNdef win32}
+//{$ifNdef win32}
 
 procedure showmessage( aMessage : String );
 begin
   writeln( aMessage );
 end;
 
-{$endif}
+//{$endif}
 {$ENDIF}
 
 { ------------------------------------------------------------------------------