uses LZW, classes;

procedure TestLZW();
var
  vDecoder : TOwnerStream;
  vStream : TStream;
  vFoo : array[0..10] of Char;
begin
  vStream := TFileStream.Create('foo', fmOpenRead);
  vDecoder := LZW.TDecoder.Create(vStream, True, 8, 1, 12);
  vDecoder.ReadBuffer(vFoo, Sizeof(vFoo));
end;

begin
  TestLZW();
end.