[Lazarus] Handling the Caps Lock key

[Arí Ricardo Ody]

I posted a question earlier about how to handle and display the status of
the CapsOn keys since my keyboard has no indicator.

With the help of chatGPT I put together a small program that tries to do
this by checking the status and trying to change the Text property of a
TEdit object. It turns out that every time I run the program I get an
"Access Violation". I'm attaching the project files and would like to see
if anyone is willing to tell me what's wrong. I'm using Lazarus 3.6 on
Windows 11.

Greetings from São Paulo - Brazil

Arí Ricardo
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20241215/01fd874f/attachment-0001.htm>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: trata_caps_lock.7z
Type: application/octet-stream
Size: 65423 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20241215/01fd874f/attachment-0001.obj>