Препод сказал, что программа очень простая.
Щас попробую описать:
Программа которая фиксирует удары например об стол и потом выводит сколько раз человек стукнул(ударил).

каким образом она будет фиксировать удары об стол? OnDeskAttack()
добавлено спустя 3 минуты:
procedure TForm1.DeskAttack(Sender: TObject);
begin
x:=x+1;
Label1.Text:='по столу ударили '+inttostr(x)+' раз';
end;

x должна быть глобальной переменной объявленной в варе

Для этого нужен хотя бы звуковой прибор, который будет реагировать на "шум" подавать сигнал в программу и тут уже передавать в OnDeskAttack()

И драйвер для работы с звуковым прибором

IceJOKER, А препод случайно не Билл Гейтс? Если ему программа простая.