Как регистрировать нажатие и отжатие клавиш?

uses crt,Timers;
var
  kSpaceKey: integer;
  
/// Обработчик нажатия клавиши
procedure KeyDown(Key: integer);
begin
  case Key of
vk_Space: if kSpaceKey=2 then kSpaceKey := 1;
  end;
end;
 
/// Обработчик отжатия клавиши
procedure KeyUp(Key: integer);
begin
  case Key of
vk_Space: kSpaceKey := 2;
  end;
end;
 
/// Обработчик таймера
procedure TimerProc;
begin
  if kSpaceKey=1 then
  begin
system.console.beep(700,300);
    kSpaceKey := 0;
  end;
begin
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
  t := new Timer(1,TimerProc);
readln;
end.

uses graphABC; 
/// Обработчик нажатия клавиши
procedure KeyDown(Key: integer);
begin
if Key=vk_Space then system.console.beep(700,300);//пока нажата клавиша, пищит
end;
begin
  OnKeyDown := KeyDown;
end.

uses graphABC; 
/// Обработчик нажатия клавиши
procedure KeyPress(Key: char);
begin
case key of
'1':system.console.beep(700,300);//точка
'2':begin//тире
    system.console.beep(700,100);
    system.console.beep(37,100);
    system.console.beep(700,100);
    end;
end;    
end;
begin
  OnKeyPress := KeyPress;
end.

uses graphABC; 
/// Обработчик нажатия клавиши
procedure KeyDown(Key: integer);
begin
if Key=vk_Space then system.console.beep(700,300);//пока нажата клавиша, пищит
end;
begin
* OnKeyDown := KeyDown;
end.

uses graphABC, CRT;
const m: integer = 1000; // время мелодии в мсек.
path:= 'beep.wav'
 
/// Обработчик нажатия клавиши
procedure KeyDown(Key: integer);
begin
if Key=vk_Space then 
sound:= new system.Media.SoundPlayer;
sound.SoundLocation:= path;
//пока нажата клавиша, пищит
end;
 
var sound,s: system.Media.SoundPlayer;
begin
repeat
keydown; //пищит
keyup; //нет
until c=#27;
readln;
end.

uses GraphABC,crt;
procedure KeyDown(Key: integer); 
begin
sound.Play;
delay(m);
End;
procedure KeyUp(Key: integer);
begin
sound.Stop;
delay(m);
End;
const m: integer = 1000; // время мелодии в мсек.
path:string='beep.wav';
var sound,s: system.Media.SoundPlayer;
begin
sound:= new system.Media.SoundPlayer;
sound.SoundLocation:= path;
Window.Title:='морзянка';
Window.Width:=465;
Window.Height:=60;
Window.CenterOnScreen();
Window.Clear(Color.Black);
SetFontColor(Color.Yellow);
SetFontStyle(fsBold);
SetFontSize(18);
OnKeyDown := KeyDown;
OnKeyUp := KeyUp;
end.