I tried uses CRT, WinCRT; var c1: char; begin Window(...); c1 := ReadKey; end; but the call to ReadKey never returned, no matter how many keystrokes I hit. - Rich