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))