Если нажатия должны произойти в основном цикле, как секретный код, то можно просто писать нажатые клавиши в строку и сравнивать с нужной последовательностью. Например так
s := s + IntegerToString(key);
l := Length(s);
s := Copy(s, l-3, l); //отрезаем последние три клавиши.
if s='987' then //нажимали, то что нужно