Příklad handleru

TYPE

TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object;

~~~~~

procedure TForm1.Edit1KeyPressed(Sender: TObject; var Key: Char);

begin

Key := UpCase(Key);

end;