неполучается у меня путём 
Transparent = true
Image1->Picture->Bitmap->Canvas->Pixels[0][Image1->Picture->Bitmap->Height-1]
ничего не происходит.... изображение непрозрачное!

пробовал ещё вот так
 BOOL TransparentBlt(
  HDC hdcDest,        // дескриптор приемного DC
  int nXOriginDest,   // x-коорд. верхнего левого угла приемника
  int nYOriginDest,   // y-коорд. верхнего левого угла приемника
  int nWidthDest,     // ширина приемного прямоугольника
  int hHeightDest,    // высота приемного прямоугольника
  HDC hdcSrc,         // дескриптор источникового DC
  int nXOriginSrc,    // x-коорд. верхнего левого угла источника
  int nYOriginSrc,    // y-коорд. верхнего левого угла источника
  int nWidthSrc,      // ширина источникового прямоугольника
  int nHeightSrc,     // высота источникового прямоугольника
  UINT crTransparent  // цвет который делается прозрачным
)
но тут моих мозгов нехватает
подскажите чегонибудь!

Измени ещё свойство Image1->Picture->Bitmap->TransparentColor.