Continuing on Nitrogens code, you could do something like
Code:if (message.CharCode in [ord('A').. ord('Z')]) or (message.CharCode = vk_space) then yourText := yourText + lowercase(chr(message.CharCode))
Bookmarks