Maiúsculas

[Guest Amador]

Já procurei no forum e num achei: como que faz p/ as letras digitadas numa caixa de texto ficarem sempre maiúsculas?

[Guest Tenho vergonha de responder isso]

no evento onKeyPress do memo coloque

if (key in ['a'..'z']) then key:=char(byte(key)-32);