아래의 코드는 키가 눌려지면 눌려진 키와 현재 시간을 리스트박스에 입력하고, 바로 KeyUp 효과를 주려고 합니다.  (실은 키를 누른채 가만히 있어도 한 번만 눌려진 효과를 얻고 싶은데, 도대체 이 방법외에는 몰라서 ^^; 혹시 다른 방법을 아신다면 알려 주신다면 더욱 고맙겠습니다.)

그런데, 아직 초보라, FormKeyUp 이라는 함수를 어떻게 호출해야 할 지를 모르겠네요.
도움을 부탁드립니다.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var   test : TDateTime ;
begin
   test := now ;

      listbox1.Items.Add(floatToStr(key )) ;
      listbox1.Items.Add(floatToStr(test)) ;

   TForm1.FormKeyUp(Sender ; key) ;           <--  이 부분 에러납니다.

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   showmessage('key released !!!') ;
end;