LainX, добавлено в дистрибутив, но хочу указать на неточности, которые обнаружились в компоненте
1. Не надо ставить одинаковые имена на Data и Var точки
2. Строка Bmp := nil -- лишняя