[lmikle]

А зачем промежуточный битмап??? Так и отрисовывай на канве, как Image1.Picture.Graphic. Если все-таки надо через промежуточный битмап, то примерно так:

Код:

var
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.Width := Image1.Picture.Graphic.Width;
  Bmp.Height := Image1.Picture.Graphic.Height;
  Bmp.PixelFormat := pf24Bit;
  Bmp.Canvas.Draw(0,0,Image1.Picture.Graphic);
  Form1.Canvas.Draw(10,10,Bmp);
  Bmp.Free;