[jachguate]

Código Delphi [-]
Var
  aBMP : TBitmap;

Begin
  aBMP := TBitmap.Create;
  try
    aBMP.Assign(Image1.Picture.Graphic);
    Image2.Picture.Assign(aBMP);
  finally
    aBMP.Free;
  end;

No estoy seguro si es necesario usar la variable intermedia aBMP. Eso ya lo dejo a tus pruebas.

Saludos.