[NumLock]

1 способ:

Код:

Image2.Picture.Assign(Image1.Picture);

2 способ:

Код:

var
  MemoryStream: TMemoryStream;
begin
  MemoryStream:=TMemoryStream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(MemoryStream);
    MemoryStream.Position:=0;
    Image2.Picture.Bitmap.LoadFromStream(MemoryStream);
  finally
    MemoryStream.Free;
  end;
end;