Рисование на TImage

[nanom1t]

У меня есть картинка TImage и у нее загружается *.png файл.
Нужно на этой картинке нарисовать красный прямоугольник, что я и делаю:

  Graphics::TBitmap *bmp = new Graphics::TBitmap();
  bmp->Transparent = true;
  bmp->PixelFormat = pf32bit;

  bmp->Assign(Image1->Picture->Graphic);
  bmp->Canvas->Pen->Color = clRed;
  bmp->Canvas->Pen->Width = 1;
  bmp->Canvas->Brush->Color = clRed;
  bmp->Canvas->Brush->Style = bsSolid;

  bmp->Canvas->Rectangle(7,10,13,13);
  Image1->Picture->Bitmap->Assign(bmp);
  bmp->Free();

Прямоугольник рисует, но не тем цветом(( Цвет не красный, а какой то светлый... и даже если clBlack то тот же цвет...

[FataLL]

Если картинка будет не png, то всё прокатит