Hola,Si lo que quieres es copiar el contenido de un TBitmap en un TImage lo puedes hacer con el método Assign, Ej.
Image1->Picture->Bitmap->Assign (Bitmap1);
Ojo, antes asigna el tamaño de la imagen, Ej.
Image1->Picture->Bitmap->Width = 200;
Image1->Picture->Bitmap->Height = 200;
Suerte,
Angel M. Aranguren