[PS11011010]

Код:

While Not keypressed do begin
процедура_1;
процедура_2;
процедура_3;
end;
Событие_по_нажатию_кнопки_или_клавиши;

Возможно, автор имел ввиду это? Без уточнения можно только гадать.