2 vuotta sitten · c2cb3f7919
--- a/packages/rtl-extra/src/win/serial.pp
+++ b/packages/rtl-extra/src/win/serial.pp
@@ -186,7 +186,7 @@ begin
 
				   securityAttributes.lpSecurityDescriptor := nil;
			
 
				   securityAttributes.bInheritHandle := true;
			
 
				   result := CreateFile(
			
 
				-    PChar(DeviceName),
			
 
				+    PAnsiChar(DeviceName),
			
 
				     GENERIC_READ or GENERIC_WRITE,
			
 
				     0,
			
 
				     @securityAttributes,