[ryderx34]

Код:

Image1.Canvas.Draw(0,0,bm); // замени на:
Image1.Picture.Bitmap := bm;

Ещё можно выровнять размер bitmap-а (того что в TImage):

Код:

Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);

Или используй PaintBox.