[dec]

Hola,

Prueba, de momento, con algo así:

Código Delphi [-]
LabelEdit1.OnKeyUp( nil, letra, [ ssShift ] );