procedure TfrmZZEncoder.Button1Click(Sender: TObject);
var sl : TcsSkipList;
    pi: Pinteger;
    p : Pointer;
  i : Cardinal;
begin

 sl := TcsSkiplist.Create(16);

 new(pi);
 pi^:= 1;
 sl.Insert(5, pi);

 new(pi);
 pi^ := 1;
 sl.Insert(2, pi);

  new(pi);
 pi^ := 1;
 sl.insert(10, pi);


 new(pi);
 pi^ := 1;
 sl.insert(7,pi);

  new(pi);
 pi^ := 1;
 sl.insert(1,pi);



//
// for i := 0 to 10 do begin
// if sl.Find(i, p)
// then begin
// pi := p;
// pi^ := pi^ + 1;
//
// end;
// end;


// sl.First;
// while not sl.EndOfList do begin
//
// sl.CurrentData(i, p);
//
// showmessage(inttostr(i) + ' ' + inttostr(PInteger(p)^));
// sl.Next;
// end;


sl.free;
end;