Delphi 7 (Скрипт)

Question

Нужен скрипт который делал следующие.
Пример:
---------------------------------------------------------
При нажатии клавиши "shift" на клавиатуре Таймер включается
А при отжатие той же самой клавиши ''shift'' Таймер выключается.

Сергей Денисеня · Accepted Answer

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if key=16 then begin
timer1.enabled:=true;

exit;
 end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if key=16 then begin
 timer1.enabled:=false;

exit;

end;
end;

//if key=16 - 16 это код клавиши шифт