FreePascal.ru

Ну так у меня тоже работает. Но, как видно из исходника, я сначала создаю объект типа TBitmap, рисую на нем, а потом переношу на визуальный компонент на форме. Тут и проявляется проблема.

Приветствую, такая проблема: на форме есть объект TImage, с незагруженой картинкой. Он лежит на панели TPanel.
Создаю объект TBitmap, загружаю туда картинку, выставляю Canvas.Brush.Color := clRed, рисую на битмапе кружок.
Присваиваю объекту TImage.Picture.Bitmap мой созданый TBitmap. Кружок виден ...