Examples Delphi

Title: 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;