做pos程序，如何判断用户按下按键F1-F12(50分)

做pos程序，如何在form中判断用户按下按键F1-F12,对应的事件是什么，请给出代码

Onkeypress

Form的KeyDown事件:112(F1)、113(F2)、117(F6)、122(F11)、123(F12)
Form.KeyPreview=true

我的代码是：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Form1.KeyPreview:=true;
if (Key=112) then //下移及回车
edit1.Text:='F1';
if (Key=113) then //下移及回车
edit1.Text:='F2';
end;
运行没有出错,但按了F1,F2，edit1.text没有显示'F1'或'F2',为什么？还差什么，能不能给出完整的代码。