Key press processing

Set form's KeyPreview property to True and do something in OnKeyPress event:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key='a' then Label1.Caption:='OK';
end;