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:

  var ofd := new OpenFileDialog();
  if ofd.ShowDialog = DialogResult.OK then
  begin
    //Filmdaten lesen
    var bytes := File.ReadAllBytes(ofd.FileName);

    //Dimensionen eines Frames bestimmen
    var width := Int32(bytes[0]);
    var height := Int32(bytes[3]);

    //Anzahl der Frames
    var frameCount := (bytes.Length - 6) / (width * height * 3);
    fFrames := new Bitmap[frameCount];

    //Initialisierung
    for i : Integer := 0 to frameCount - 1 do
      fFrames[i] := new Bitmap(width, height);

    //Alle Pixel durchgehen
    for x : Integer := 0 to width-1 do
      for y : Integer := 0 to height-1 do
      begin       
        var idx := 6 + (width * x + y)*(3*frameCount); //Ein Pixel ist (3 Bytes)*(Frame-Anzahl) groß
        for i : Integer := 0 to frameCount - 1 do //Für jeden Frame die Farben des Pixels bestimmen
          fFrames[i].SetPixel(x, y, Color.FromArgb(bytes[idx+i], bytes[idx+i+frameCount], bytes[idx+i+2*frameCount]));
      end;

    //Anzeige-Gedöns
    trackBar1.Maximum := frameCount-1;
    pictureBox1.Image := fFrames[0];
  end;                    

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:

procedure TForm1.Button2Click(Sender: TObject);
var x,y,cur:Integer;
begin
  cur:=Button2.Tag;
  if(cur=Length(a)) then begin
    Timer1.Enabled:=false;
    exit;
  end;
  for y := 0 to 100 - 1 do begin
    for x := 0 to 22 - 1 do begin
      if(a[cur]=0) then Image1.Canvas.Pixels[x,y]:=clBlack
      else Image1.Canvas.Pixels[x,y]:=clWhite;
      Inc(cur,1);
    end;
    for x := 0 to 22 - 1 do begin
      if(a[cur]=0) then Image2.Canvas.Pixels[x,y]:=clBlack
      else Image2.Canvas.Pixels[x,y]:=clWhite;
      Inc(cur,1);
    end;
    for x := 0 to 22 - 1 do begin
      if(a[cur]=0) then Image3.Canvas.Pixels[x,y]:=clBlack
      else Image3.Canvas.Pixels[x,y]:=clWhite;
      Inc(cur,1);
    end;
  end;
  Button2.Tag:=cur;
end;