or i:=0 to length do
var
  data: array[1..2047] of byte;
  lrc:LongWord;
  pchar:^char;
 begin
   if (Data[i] Xor $68)<>0 then continue;
   if (Data[i+3] Xor $68)<>0 then exit;
   if (Data[i+3+ord(Data[i+1])] Xor $16)<>0 then exit;
   if ord(Data[i+4])=3 then