keyPress事件

keyPress事件求助
想将按Ｆ1输入￠

应该如何写？

[解决办法]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=$70 then
Edit1.Text:=Edit1.Text+ '￠ ';

end;