[delphi_begin]

согласен, пример утрирован.
Но это чтобы привести пример того, что я хочу сделать.
Если у Вас есть предложения по решению моей задачи, с удовольствием их выслушаю