1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
  ord(EditWunschtaste1.Text): macheWasBeiWunschTaste1gemachtWerdenSoll();
  ord(EditWunschtaste2.Text): macheWasBeiWunschTaste2gemachtWerdenSoll();
  ord(EditWunschtaste3.Text): macheWasBeiWunschTaste3gemachtWerdenSoll();
end; //der case-Anweisung					

1:
2:
3:
4:
5:

procedure macheWasBeiWunschTaste1gemachtWerdenSoll();
begin
//Hier dann die entsprechenden Anweisungen, z.B.:
runterzaehler:=200;
end;					

1:
2:
3:
4:
5:

procedure macheWasBeiWunschTaste2gemachtWerdenSoll();
begin
//Hier dann die entsprechenden Anweisungen, z.B.:
runterzaehler:=100;
end;					

1:
2:
3:
4:
5:

procedure macheWasBeiWunschTaste3gemachtWerdenSoll();
begin
//Hier dann die entsprechenden Anweisungen, z.B.:
runterzaehler:=50;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.TimerRunterzaehler.OnTimer(Sender: TObject)
begin
runterzaehler:=runterzaehler-1;
if runterzaehler=10 then
    beep(); //Dieses ist nur eine Karrikatur, da kenne ich mich leider nicht so aus!
else if runterzaehler=0 then
    beep(); //siehe die if-Behandlung!
end;