var i, j : Integer;
    Buf : array [0..95] of Char;
    SL: TStringListUTF8;