Ricardo, Esta secuencia es la que se repite una y otra vez hasta tirar la aplicacion: TDIALOGL:GONEXTCTRL 0000 TGETL:GOTFOCUS 0059 TGETL:HANDLEEVEN 0000 SETFOCUS 0000 Parece que saltais al siguiente control (GoNextCtrl()) cuando un TGetL toma el foco (GotFocus()), y vuelve a ocurrir lo mismo ...