[AND_REY]

Помогите пожалуйста. Есть картинка типа jpg в компоненте Image1 размещённом на форме. Нужно поместить эту картинку в TBitmap, и нарисовать этот Bitmap рядом с Image1 на форме.

[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;

[AND_REY]

Спасибо lmikle, именно то что нужно!!!