Componente TLabel

[[eduarcol]]

Si no hay otra solucion podriamos tomar la que coloque al principio, me sigue pareciendo razonable

Aunque ahora que lo pienso podriamos hacer esto

if Parent.FindComponent('txOrigen') is TEdit then
Caption := Parent.FindComponent('txOrigen').Text;
if FInvertir then
Caption:= Copy(Caption,Length(Caption),1) + Copy(Caption,1,Length(Caption)-1)
else
Caption:= Copy(Caption,2,MAXINT) + Copy(Caption,1,1);

esto lo qe hace es que toma un edit llamado txOrigen que se encuentre en el mismo parent de la etiqueta y lo pasa al caption

Noi es lo ideal pero deberia funcionar