[pascal] on keyup w pascalu

Witam !
Wiem, że readkey działa podczas wciskania klawisza a ja chcę aby coś się działo od wciśnięcia klawisza do jego podniesienia (lub przy samym podnoszeniu) - czy jest coś takiego w pascalu (TP7) ?

Tutaj przykładowy skrypt do poprawy :P

program aaa;
uses crt;

const backspace  = chr(27);
var
   key          : char;
   poziom       : integer;

procedure graj(natezenie:integer);
   begin
        sound(natezenie);
   end;


begin

 while (key <> backspace) do
 begin
    delay(180);
    key := readkey;
    poziom:=200;
	graj(poziom);
	
	{tutaj w pętli albo za pomocą jakiejś funkcji chce zastosować}
	{nosound,tak, żeby po podniesieniu klawisza dźwięk ustał}
 end;
 nosound;

end.

Pozdrawiam !

nie ma takich funkcji w paskalu.
ale zawsze można je zrobić - klawiaturę obsługuje przerwanie biosu: int 10h

port[$60]

Osiągnięcie tego celu jest chyba ponad mój poziom ale dzięki, będe szukał.