el: TCompressionLevel);  
　　　　var  
　　　　　SourceStream: TCompressionStream;  
　　　　　DestStream: TMemoryStream;  
　　　　　Count: Integer;  
　　　　Begin  
　　　　　//获得图像流的原始尺寸  
　　　　　Count := CompressedStream.Size;  
　　　　　DestStream := TMemoryStream.Create;  
　　　　SourceStream:=TCompressionStream.Create  
　　　　　(CompressionLevel, DestStream);  
　　　　　Try  
　　　　　　//SourceStream中保存着原始的图像流  
　　　　　　CompressedStream.SaveToStream(SourceStream);  
　　　　　　//将原始图像流进行压缩， DestStream中保存着压缩后的图像流  
　　　　　SourceStream.Free;  
　　　　　　CompressedStream.Clear;  
　　　　　　//写入原始图像的尺寸  
　　　　　　CompressedStream.WriteBuffer(Count, SizeOf  
　　　　　　(Count));  
　　　　　　//写入经过压缩的图像流  
　　　　　　CompressedStream.CopyFrom(DestStream, 0);  
　　　　　　finally  
　　　　　　DestStream.Free;  
　　　　　end;  
　　　　end;  
　　　3．还原被压缩图像  
　　　　procedure UnCompressBitmap(const CompressedStream: TFileStream; var Bmp: TBitmap);  
　　　　　var  
　　　　　　SourceStream: TDecompressionStream;  
　　　　　　DestStream: TMemoryStream;  
　　　　　　Buffer: PChar;  
Count: Integer;  
　　　　　Begin  
　　　　　　//从被压缩的图像流中读出原始图像的尺寸  
　　　　　　CompressedStream.ReadBuffer(Count, SizeOf(Count));  
　　　　　　//根据图像尺寸大小为将要读入的原始图像流分配内存块  
　　　　　　GetMem(Buffer, Count);  
　　　　　　DestStream := TMemoryStream.Create;  
　　　　　　SourceStream := TDecompressionStream.Create(CompressedStream);  
　　　　　Try  
　　　　　　//将被压缩的图像流解压缩，然后存入 Buffer内存块中  
　　　　　　SourceStream.ReadBuffer(Buffer^, Count);  
　　　　　　//将原始图像流保存至 DestStream流中  
　　　　　　DestStream.WriteBuffer(Buffer^, Count);  
　　　　　　DestStream.Position := 0;//复位流指针  
　　　　　　//从 DestStream流中载入原始图像流  
　　　　　　Bmp.LoadFromStream(DestStream);  
　　　　　　finally  
　　　　　　FreeMem(Buffer);  
　　　　　　DestStream.Free;  
　　　　　end;  
　　　　end;  
　　　4．压缩按钮 OnClick事件  
　　　　procedure TForm1.Button1Click(Sender: TObject);  
　　　　　var  
　　　　　　Bmp: TBitmap;  
　　　　　　CompressedStream: TMemoryStream;  
　　　　begin  
　　　　　　Bmp := TBitmap.Create;  
　　　　　　CompressedStream := TMemoryStream.Create;  
　　　　　Try  
　　　　　　 //捕获当前整个屏幕 ,将图像保存至 Bm