hola gracias por el aporte.
por cierto, en la funcion de redondear bordes, me daba error en las lineas:
Código Delphi
[-]
8: focusRectangle.Pen.Style := psUserStyle;
9: focusRectangle.Pen.Style := psAlternate;
solo las borre y me funko bien, ¿sera por la version de delphi?....