Вроде все нормально, код конечно "причесать" придется, но вроде не так сложно как вы это описывали.
Изменить в AdjustControl.pas :code_32522.txt
Тестировать этим: code_32523.txt