um, to draw an image to a TImage from TBitmap do this

[pascal]Image1.Picture.Bitmap := Bitmap;[/pascal]

or

[pascal]Image1.Canvas.Draw(0, 0, Bitmap);[/pascal]