Можно ли так сделать, чтобы кроме 3 клавиш програма не реанировала на нажатия других? Если можно, то как?

Можно... Определи СВОЮ функцию с именем ReadKey, которая будет "пропускать" только нажатие трех нужных тебе клавиш, и игнорировать остальные...

Вариант...
Поставить резидента на 09h, читать скан коды при обработке, если клавиши запрещенные то чистить буфер клавы, если разрешенные, передавать работу стандартному обработчику.

А как-то попроще нельзя? О_о

"Попроще" чем ЧТО? Чем ЭТО:

uses crt;

Function ReadKey: Char;
Var ch: Char;
Begin
  repeat
    Ch := Crt.ReadKey;
    Case Ch Of
      #0: Crt.ReadKey;
      'a', 'b', 'c': Begin
        ReadKey := Ch; Exit;
      End;
    End;
  until false;
End;

begin
  writeln(readkey);
end.

???

Ну, попробуй запустить и понажимать ЛЮБЫЕ клавиши, кроме 'a', 'b', 'c' ...

Ch := Crt.ReadKey;

Что надо указать в настройках TB7, чтобы эта конструкция начала работать? Или в ТП такое невозможно?

А что, разве это не работает?
Код в студию.

всё, разобрался

в этой строке переменной в коде volvo нет, т.е. ch:=Crt.ReadKey.

DFooz, не надо умничать! Если бы надо было присвоить значение переменной, я бы это сделал. Оно НЕ НУЖНО! А вызов функции как процедуры еще никто не отменял, если у тебя неправильно настроена IDE, то это ТВОЯ проблема, а вот говорить, что код - нерабочий я тебе не позволю!

Этот код, между прочим, копировался сюда из редактора. Купи выпрямитель рук!