Writeln('Do you want to do it? Y/N')
Readln(Char, 5)

uses
  System.SysUtils, Winapi.Windows;

const
  TimeOut = 5000;

function GetCharTimeOut(const DefChar: Char): Char;
var
  I: Integer;
  Handle: THandle;
  EventsRead: Cardinal;
  EventCount: Cardinal;
  InputRecord: TInputRecord;
begin
  Result := DefChar;
  Handle := GetStdHandle(STD_INPUT_HANDLE);
  while WaitForSingleObject(Handle, TimeOut) = WAIT_OBJECT_0 do
  begin
    if not GetNumberOfConsoleInputEvents(Handle, EventCount) then
      Exit;
    for I := 1 to EventCount do
    begin
      EventsRead := 0;
      InputRecord := Default(TInputRecord);
      if ReadConsoleInput(Handle, InputRecord, 1, EventsRead) then
        if (InputRecord.EventType = KEY_EVENT) and
          (InputRecord.Event.KeyEvent.bKeyDown) and
          (InputRecord.Event.KeyEvent.UnicodeChar <> #0) then
            Exit(InputRecord.Event.KeyEvent.UnicodeChar);
    end;
  end;
end;

begin
  try
    while True do
    begin
      WriteLn('Enter Y for YES or N for NO');
      WriteLn('Entered ' + GetCharTimeOut('T'));
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.