[Alegun]

Многовато что-то вызовов функции поиска компонентов за один проход получается, тогда лучше завести переменную типа TComponent, "найти" в неё нужный комбик и работать уже с ним. Ну и соблюдение орфографии и блочных конструкций используемого ЯП