Pascal/Turbo Pascal - IskeyPressed

Hola..

necesito el codigo de una funcion ISKEYPRESSED

hace buen rato programé una rutina para practicar codigo morse en pascal pero no recuerdo como controlaba el teclado.

Se trata de contar el tiempo que dejas presionada una tecla y hacer un sonido al mismo tiempo
y despues de soltarla contar tambien el tiempo son presionar ninguna tecla.

Mi problema es que no tengo una funcion en pascal que me diga que estoy presionando una tecla

si uso la funcion keypressed no me funciona bien mi programa ( el tiempo de repeticion del teclado me afecta)

Yo lo que quiero es algo asi:

if iskeypressed(tecla) then begin
sound(1000);
suma_tiempo_activa; end
else
begin
nosound;
suma_tiempo_pausa;
end

yo lo que quiero es que mientras la tecla este presionada haga un sonido continuo y cuando le suelte la tecla el NOSOUND lo callará.