Их Вашего года совершенно непонятно, как создается Ваша Kartina, например в
Код:
Kartina.Create(PaintBox1.Canvas);
скорее всего должно быть
Код:
TKartina.Create(PaintBox1.Canvas);
Вот и получаете доступ к неинициализированной переменной (Kartina)
Кроме того, что-то не видно освобождения объектов после их создания
Несколько
опытных просмотрели целиком и полностью код программы????