Delphi: Waiting for ESCAPE key before continuing

Project4.dpr

program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.Windows;

procedure WaitForEscapeKey;
var
  Done: Boolean;
  Event: TInputRecord;
  EventsRead: DWORD;
begin
  Done := False;
  repeat
    ReadConsoleInput(GetStdhandle(STD_INPUT_HANDLE),
                     Event, 1, EventsRead);
    if Event.Eventtype = key_Event then begin
      if Event.Event.KeyEvent.bKeyDown then
      begin
        Done := Event.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE;
        if (not Done) and (Event.Event.KeyEvent.AsciiChar <> #0) then
        begin
          WriteLn('You typed: ', Event.Event.KeyEvent.AsciiChar, ' - waiting for ESC');
          Sleep(50);
        end;
      end;
    end;
  until Done;
end;

begin
  try
    Writeln('Press escape to end');
    WaitForEscapeKey;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.