1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

type   TMpegFrame = array of byte;
[...]

var mp3file:array of byte;
  MpegFrames:array of TMpegFrame;

[...]
function TForm1.GetMpegFrames(mpeginfo:Tmpeginfo): integer;
var framestart,framelength:integer;
    erfolg,j:integer;
begin
    erfolg:=0;
    framestart:=mpeginfo.position;   // =0, oder nach ID3v2Tag
    setlength(MpegFrames,mpeginfo.frames);
    repeat
        // diesen frame kopieren
        framelength:=GetFramelength(framestart);
       // wenn da was schiefläuft, den rest der Datei nehmen!
        if (framelength=-1) OR (erfolg=length(MPegFrames)-1) then
        begin
            framelength:=length(mp3file)-framestart;
        end;
        setlength(MpegFrames[erfolg],framelength);
        // frame mit Nr. Erfolg kopieren
        for j:=0 to framelength-1 do Mpegframes[erfolg][j]:=mp3file[framestart+j];
        framestart:=framestart+framelength;
        inc(erfolg);
    until framestart>=length(mp3file);
    memo1.lines.add('Gelesene Blöcke: '+inttostr(erfolg));
    result:=erfolg;
end;

function TForm1.GetFramelength(framestart:integer):integer;
var mpeginfo:Tmpeginfo;
    framelength:integer;
    bitrate,version,samplerate:integer;
    layer:integer;
    bitrateindex,padding,samplerateindex: byte;
begin
    if (ord(mp3file[framestart])=$FF) AND (ord(mp3file[framestart+1])>=$E0)then
    begin
        //Byte 1 und 2: AAAAAAAA AAABBCCD
        case ((ord(mp3file[framestart+1]) shr 3) and 3) of
            0: version:=3; //eigentlich ist das Version 2.5 aber wegen dem Array-Index...
            1: version:=0; //Reserved
            2: version:=2;
            3: version:=1;
        end;
        Layer:=4-((ord(mp3file[framestart+1]) shr 1) and 3);
        // Byte 3: EEEEFFGH
        bitrateindex:=((ord(mp3file[framestart+2]) shr 4) AND $F);
        bitrate:=MPEG_BIT_RATES[version][layer][bitrateindex];
        padding:=((ord(mp3file[framestart+2]) shr 1) AND 1);
        samplerateindex:=((ord(mp3file[framestart+2]) shr 2) AND 3);
        samplerate:=sample_rates[version][samplerateindex];

        if mpeginfo.layer=1 then
            framelength:=12*MPEG_BIT_RATES[version][layer][bitrateindex]*1000 DIV samplerate+padding*4
        else
            framelength:=144*MPEG_BIT_RATES[version][layer][bitrateindex]*1000 DIV samplerate+padding;
    end else
    begin
        framelength:=-1;
    end;
    result:=framelength;
end;