|  | @@ -1670,7 +1670,7 @@ var
 | 
											
												
													
														|  |    MyScan:byte;
 |  |    MyScan:byte;
 | 
											
												
													
														|  |    MyChar : char;
 |  |    MyChar : char;
 | 
											
												
													
														|  |    MyKey: TEnhancedKeyEvent;
 |  |    MyKey: TEnhancedKeyEvent;
 | 
											
												
													
														|  | -  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,IsAlt,Again : boolean;
 |  | 
 | 
											
												
													
														|  | 
 |  | +  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,Again : boolean;
 | 
											
												
													
														|  |    SState: TEnhancedShiftState;
 |  |    SState: TEnhancedShiftState;
 | 
											
												
													
														|  |  
 |  |  
 | 
											
												
													
														|  |  begin {main}
 |  |  begin {main}
 | 
											
										
											
												
													
														|  | @@ -1694,8 +1694,6 @@ begin {main}
 | 
											
												
													
														|  |    AltPrefixUsed:=false;
 |  |    AltPrefixUsed:=false;
 | 
											
												
													
														|  |    ShiftPrefixUsed:=false;
 |  |    ShiftPrefixUsed:=false;
 | 
											
												
													
														|  |    EscUsed:=false;
 |  |    EscUsed:=false;
 | 
											
												
													
														|  | -  if IsAlt then
 |  | 
 | 
											
												
													
														|  | -    Include(SState, essAlt);
 |  | 
 | 
											
												
													
														|  |    repeat
 |  |    repeat
 | 
											
												
													
														|  |      again:=false;
 |  |      again:=false;
 | 
											
												
													
														|  |      if Mychar=#0 then
 |  |      if Mychar=#0 then
 | 
											
										
											
												
													
														|  | @@ -1839,8 +1837,6 @@ begin {main}
 | 
											
												
													
														|  |          MyKey:=ReadKey;
 |  |          MyKey:=ReadKey;
 | 
											
												
													
														|  |          MyChar:=MyKey.AsciiChar;
 |  |          MyChar:=MyKey.AsciiChar;
 | 
											
												
													
														|  |          MyScan:=ord(MyChar);
 |  |          MyScan:=ord(MyChar);
 | 
											
												
													
														|  | -        if IsAlt then
 |  | 
 | 
											
												
													
														|  | -          Include(SState,essAlt);
 |  | 
 | 
											
												
													
														|  |        end;
 |  |        end;
 | 
											
												
													
														|  |      until not Again;
 |  |      until not Again;
 | 
											
												
													
														|  |    if (MyChar<>#0) or (MyScan<>0) or (SState<>[]) then
 |  |    if (MyChar<>#0) or (MyScan<>0) or (SState<>[]) then
 |