Delphi中游的使用

Delphi中流的使用
帮忙看看下面代码错在哪：
procedure TForm1.TntButton6Click(Sender: TObject);
var
  CompressedStream: TFileStream;
  SourceStream: TDecompressionStream;
  DestStream: TMemoryStream;
  Buffer: PwideChar;
  Count: Integer;
  Lfile:file;
  filename:string;
begin
  filename:='f:\cj.txt';
  CompressedStream := TFileStream.Create('f:\cj.dat', fmOpenRead);

  try
    CompressedStream.ReadBuffer(Count, SizeOf(Count));///获取压缩文件的大小
    GetMem(Buffer, Count);
    DestStream := TMemoryStream.Create;
    SourceStream := TDecompressionStream.Create(CompressedStream);
    Try
      SourceStream.ReadBuffer(Buffer^,  Count);
      DestStream.WriteBuffer(Buffer^, Count);
      DestStream.Position := 0;
      DestStream.SaveToFile(filename);
    finally
      FreeMem(Buffer);
      DestStream.Free;
    end;
    //Lfile.SaveToFile('f:\cj.txt');
  finally
    CompressedStream.Free;
  end;
end;

------解决方案--------------------------------------------------------
该回复于2009-06-18 17:26:16被版主删除