[icWasya]

До BitMap - не обязательно, достаточно до Picture

Код:

var
  NewImage : TImage;
begin
  NewImage := TImage.Create(Self);

  NewImage.BoundsRect:= Image1.BoundsRect; //присвоим размеры
  NewImage.Parent := Image1.Parent; // что бы где-нибудь нарисовалось
  NewImage.Picture.Asign(Image1.Picture);// скопируем картинку;
(*
  Ну и до кучи - Proportional, Stretch, Transparent, Autosize, Center
*)