[lmikle]

Для этого надо открыть специальный визард и создать новый класс, потомок от одного из наследников TComponent или его самого. Ну а дальше, внутри, будет ровно то, что я тебе написал, только оформленное в виде метода этого нового класса.