1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = 'H' then
    caption := 'Hello World';
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word);
begin
  if Key=ord('a')) then  Showmessage('a');
  if Key=ord('b')) then  Showmessage('b');
  if Key=ord('c')) then  Showmessage('c');

end;